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Möchten Sie als Software-Autor 
für den TRONIC- Verlag tätig werden? 



Wir würden uns freuen, in Ihnen einen Ansprechpartner für eine 
künftige intensive Zusammenarbeit zu finden. Der TRONIC-Ver- 
lag vereinbart mit seinen künftigen Software-Autoren pro veröf- 
fentlichte volle Seite (einschl. Programmbeschreibung) ein Hono- 
rar von DM 120,-. 

Dieses Entgelt wird fällig, wenn die Redaktion des Verlages sich 
für eine Veröffentlichung entscheidet. Die Auszahlung erfolgt also 
nicht erst nach Veröffentlichung in einer unserer Ausgaben, son- 
dern früher. 

Der Verlag wird vom Autor berechtigt, seine Manuskripte (Pro- 
gramme) zur Darstellung im Heft heranzuziehen und abzudrucken. 



Einzusenden sind: 

- Programmbeschreibung 

- bespielte Cassette oder Diskette 

- Listing (mit Copyright) 

- Freiumschlag 




Der Autor erklärt sich mit der Lieferung seines Programme s oder 
seiner Beiträge ausdrücklich bereit, die Verwertung durch den 
Verlag freizugeben, d. h. er überträgt nicht nur die Nutzung, 
sondern auch die Übereignung des Computerprogrammes und der 
Beiträge. 

Der Autor verpflichtet sich nur solche Programme anzubieten, die 
eigene Entwicklungen des Autors sind. 

Mit der Veröffentlichung oder dem Anlauf des Programmes und 
der Beiträge ist es dem Verlag gestattet, auch eine anderweitige 
bzw. weitergehende Verwertung vorzunehmen, da der Autor dem 
Verlag das Copyright gegen Honorar gestattet hat. Die Verwer- 
tung durch den Verlag ist unbeschränkt und unwiderruflich, wenn 
nicht 10 Tage nach Zusendung der Unterlagen durch den Autor 
widersprochen wird. 

Haben Sie Interesse? Haben Sie noch Fragen? 

Setzen Sie sich telefonisch mit unserer Redaktion in Verbindung! 

TRONIC-VERLAG 

DIE REDAKTION 
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Skeet 




Commodore 64 



Cave-Man 




TI-99 mit und ohne 
Ext.-Basic 




Comntodore $4 

Skeet 

Unser absolutes Topprogramm in dieser 
Ausgabe. - Auf vielfachen Wunsch hat 
sich die Redaktion entschlossen, „Skeet" 
abzudrucken. 

Grafik-Designer 

Ein Sprite- und Zeichen-Designer 
mit viel Komfort für den VC-64. 

High-Noon 

Ein superschnelles Spiel. Mit 255 !! 
verschiedenen Geschwindigkeitsstufen. 



Seite 9 
Seite 14 
Seite Jt<J 



VMO 



Buffalo Bill 

Abenteuer im Wilden Westen. 
Für den VC-20 ohne Erweiterung. 

Prost 

Eine schöne Spielversion. Für den VC-20 
ohne Speichererweiterung. 



Seite Li 



Seite 29 



Atari 



Mutation 

Eine Spielhallenversion. Geschrieben 
auf dem Atari 800 XL, wo Reaktion und 
Geschicklichkeit gefragt sind. 

Ski 

Ein Spiel für eine Person. Das Spiel ist auf . ~ 

allen Atari-Computern lauffähig. Seite 4 «5 



Seite 40 



ZX-Spectrum 



Frogger 

Ausgewählt von der Redaktion zum 

Topprogramm für den ZX-Spectrum 48K. 

Wir stellen Ihnen in unserer Ausgabe die - ^ 

bekannte Spielversion „Frogger" vor. Seite 4t) 



Apple II 



Donovan 

Tödliche Strahlen greifen die Stadt an. 

Basic-Konverter 

Verwandelt ein Applesoft-Programm 
in ein Interbasic-Programm. 



TI-99 

Alkoholverbot 

Ein Topprogramm. Ausgezeichnet 
wurden Spielidee und die Bewegung der 
Spielfigur. 

Cave-Man 

Versuchen Sie dem Saurier Rex die 
abgelegten Eier zu stehlen. 



ZX-SI 



Expedition 

Ist ein Abenteuerspiel. Ziel des Spieles 
ist es, möglichst viele Schätze zu finden 
und zu bergen. 



Sei 



Seite ötf 
Seite 72 
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Forth-Kurs 
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Neues vom Commodore 64 


Seite 7 


Geschenkaktion 84 

Günstige Angebote. 


Seite 81 


Computer-Börse 


Seite oA 


Korrekturen 


Seile 77 r OO 



Kassettenservice " 

Wieder tolle Angebote. 

Heute bestellt, morgen geliefert. 



Seite 




Kurs 



Auf vielfachen Wunsch 
hier unser 
kompletter Kurs 



Vorstellung der Programmiersprache 



Wer schon in Basic programmiert 
hat wird wissen, daß es hin und 
wieder Anwendungen gibt, die 
recht schwierig zu programmieren 
sind. Für solche Fälle hat man bei 
großen Rechnern die Möglichkeit, 
auf andere Sprachen zurückzugrei- 
fen. Es gibt FORTRAN für mathemati- 
sche Problemlösungen, COBOL für 
kommerzielle Zwecke, ASSEMBLER 
für zeitkritische Aufgaben, BASIC für 
die allgemeinen Problemlösungen auf 
Microcomputern. 

FORTH gehört zu der jüngsten Gene- 
ration von Programmiersprachen. 
Versucht wurde, alle Vorteile der re- 
nommierten Programmiersprachen in 
FORTH zu implementieren, ohne aber 
deren „Fehler" mit zu übernehmen. 
FORTH hat schon in seiner Struktur 
einige markante Vorteile, die beson- 
ders bei den Microcomputern von 
Vorteil sind: 

- FORTH ist auf fast allen Microcom- 
putern implementierbar und benötigt 
nur wenig Speicherplatz. 

- FOßrH-Programme sind wesentlich 
kürzer als BASIC- und ASSEMBLER- 
Programme. 

- FORTH ist in der Regel lOmal 
schneller als BASIC. 

- FORTH kann auch mit Kassettenre- 
corder betrieben werden. Vorteilhaft 
ist aber ein Floppy-Laufwerk. 

- FORTH ist problemlos erweiterbar. 

- FOßra-„Hochsprache" und FORTH- 
„Assembler" lassen sich beliebig mi- 
schen. 

- FORTH erlaubt eine strukturierte 
Programmierung. 

FORTH ist ursprünglich für die Pro- 
grammierung von Steuerungsaufga- 
ben entwickelt worden. Da die Spra- 
che leicht erweiterbar ist, kann sie für 
fast alle Anwendungen verwandt wer- 
den. Durch das Implementieren eini- 
ger Grafik-Befehle wird aus der Pro- 
zeßsprache schnell eine geeignete 
Sprache für Spiele und Grafik-An- 
wendungen. Jeder kann FORTH um 
die Befehle erweitern, die er für seine 
Anwendungen gerade benötigt. Trotz 
zahlreicher Erweiterungen sind 
FOR TH-Programme sehr leicht auf ei- 
nen anderen Rechner zu übertragen. 
Fehlende Worte (Befehle) können ein- 
fach implementiert werden. 
Wir hoffen, daß es uns gelungen ist, 
einige Vorteile von FORTH darzustel- 



len. Auf den folgenden Seiten werden 
Sie schrittweise mit den Eigenheiten 
der Sprache vertraut gemacht. Es ist 
schade, daß bisher kaum eine Zeit- 
schrift näher auf FORTH eingegangen 
ist. Obwohl es sicher eine der lei- 
stungsfähigsten Sprachen für Micro- 



Programm besteht also in der Regel aus 
zahlreichen Definitionen, die sich ge- 
genseitig aufrufen. 

Um Wörter wieder löschen zu können, 
benutzt man den Befehl >FORGET<. 
Der Aufruf >FORGET TEST< löscht 




Computer ist und immer mehr Freunde 
findet. 

Einleitung 

FORTH ist ein selbständiges Sprachsy- 
stem, das sowohl Compiler als auch 
Interpreter ist und sein eigenes Be- 
triebssystem beinhaltet. Das Besonde- 
re an FORTH ist, daß mit dem „Stapel" 
gearbeitet wird. Wer schon einmal in 
Assembler programmiert hat, kennt 
die Arbeitsweise des Stapels. Der Sta- 
pel arbeitet nach dem LIFO-System. 
Dies bedeutet, etwas wird abgelegt 
und kann später wieder herunterge- 
nommen werden. FORTH besitzt zwei 
Stapel. Den Daten- und den Return- 
Stapel. Auf die Funktion wird später 
noch eingegangen. 

Die Verwendung eines Stapels wäre 
eigentlich nichts Neues. Jeder HP-Ta- 
schenrechner verwendet einen Stapel 
zum Abspeichern von Zahlen. Der 
Unterschied zu den HP-Rechnern ist 
hier das Wörterbuch, welches auch 
als Stapel ausgelegt ist. 
Die Sprache besteht aus Worten, die 
nach ihrer Definition auf dem Defini- 
tionsstapel, dem Wörterbuch, abge- 
legt werden. Bei der Erstellung eines 
Wortes können schon vorherige Defi- 
nitionen verwendet werden. Ein Forth- 



alle Worte, beginnend bei >TEST< 
bis zum obersten Eintrag in den Stapel. 
Das Löschen eines einzigen Wortes im 
Stapel ist nicht möglich und wäre auch 
nicht sinnvoll. Denn spätere Definitio- 
nen könnten nicht mehr benutzt wer- 
den. Es gibt aber auch die Möglichkeit, 
ein Wort mehrmals zu definieren. In 
diesem Fall wird immer das zuletzt 
definierte Wort ausgeführt. 
Berechnungen erfolgen in FOR TH über 
den Datenstapel, den wir auch als 
STACK bezeichnen können. Da alle 
Operanden über den Stack geleitet 
werden, ergibt sich die etwas unge- 
wohnte Rechenschreibweise >UPN< 
(Umgekehrte Polnische Notation). 
Auch die schon genannten HP-Ta- 
schenrechner verwenden diese Art 
der Eingabe. Um beispielsweise die 
Zahlen 5 und 7 zu addieren, muß fol- 
gendes eingegeben werden: 

in FORTH: 5 7 + in BASIC: 5 + 7 
Nach der Eingabe dieses Beispiels 
werden die beiden Summanden vom 
Stack geholt und addiert. Das Ergebnis 
wird wieder auf den Stack geschrie- 
ben. Man kann dies leicht überprüfen, 
indem man sich das Ergebnis durch 
den Befehl >"."< ausgeben läßt. Der 
Befehl >"."< holt die oberste Zahl 
weiter Seite 31 
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News 



Der PaperTiger von Dataproducts 
ist gewachsen! 

Seit seiner Vorstellung im April 1984 
ist das Modell 8010/1 1 aus der Paper- 
Tiger-Serie von Dataproducts, dem 
weltgrößten, unabhängigem Drucker- 
hersteller, Maßstab für professionelle 
und modernste Matrixdrucker im 
mittleren Preisbereich. 
Jetzt ist mit dem Modell 8020/2 1 die 
breitere Version verfügbar (132 Zei- 
chen/Schreibbreite), die vom Design 
und den Eigenschaften mit dem Mo- 
dell 8010/11 identisch ist. 
Als sehr wichtig für Anwender hat 
sich bei der Serie die Ausstattung der 
Drucker mit einem gemeinsamen par- 
allelen und seriellen Interface erwie- 
sen, desgleichen, daß die Modelle 
8011 und 8021 speziell für den IBM- 
PC und die Kompatiblen entwickelt 
wurden. 

Dialogverkehr statt „Mäuseklavier" - 
ist wohl die bemerkenswerteste Eigen- 
schaft der Drucker. Denn auf sämtli- 
che Funktionseinheiten kann über die 
Sensortasten zugegriffen werden. Da- 
mit entfällt das manchmal nervenauf- 
reibende Manipulieren an den übli- 



cherweise eingebauten DIP-Schaltern. 
Der Anwender kann sich per Tasten- 
druck eine Übersicht über die aktuel- 
len Betriebsparameter ausdrucken 
lassen. Die angezeigten Parameter 
(insgesamt 22) lassen sich dann über 
einen einfach zu erlernenden Dialog 
beliebig modifizieren. Voreinstellun- 



Atari 



r HIGHWAY DUELL* 



Mit dem Spiel-Programm „Highway 
Duell" für den Atari 400/800 und die 
XL-Modelle präsentiert der große 
Hamburger Homecomputer-Software- 
und Zubehör- Anbieter eine rein deut- 
sche Software-Entwicklung. 
Die beiden Münsteraner Abiturienten 
Julian Reschke und Andreas Wiethoff 
programmierten dieses Autorennen in 
Maschinensprache unter Anleitung 
von Experten. Vorabmuster wurden 
von Kindern und Jugendlichen auf 
Schwierigkeiten und Spielwitz ge- 
prüft. Bis zur Fertigstellung des Pro- 
gramms und der Produktion mit einem 
kaum zu „knackenden" Kopierschutz 
verging fast ein halbes Jahr. 



gen bestimmter Funktionen lassen 
sich speichern, so daß sie nach dem 
Ausschalten des Druckers auch erhal- 
ten bleiben. Dafür sorgt ein eingebau- 
ter batteriegepufferter RAM -Spei- 
cher. 

Dataproducts GmbH, Frankfurter Str 
172-176, 6078 Neu Isenburg r 




In einem schwierigen Straßenrennen 
mit ausgezeichneter Graphik kämpfen 
Sie gegen Ihren Mitspieler oder den 
Computer um den Sieg. Baustellen 
müssen langsam passiert werden, Hin- 
dernisfahrzeugen ausgewichen wer- 
den. Kleine, benzinfressende Wesen 
zwingen Sie zum Tankaufenthalt. Wer 
wird Siegen? Gesehen bei; Dynamics 
marketing GmbH, 2000 Hamburg 1 . 
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iiig; HOME-COMPUTER :::::: 



CPU 6502 A, 32 KByte RAM, 
16 KByte ROM, Microsoft- BASIC, 
hochauflösendeGrafik 
256x192,16 Farben, 
Video-Audio-Aus- 
gang, HF-Modulator. 
Eingebaut: 
Centronics-Parallel- 
Schnittstellej Rekorder- 
Interface, Joystick- 
Interface. Optional: Daten- 
rekorder, 16 KRAM Erweite- 
rungsmodul, Druckerkabel, 
Disk-Controller/Disk-Drive. 




...der viele 
in den Schatten stellt! 



Im Fachhandel. 

Auskunft: Generalimporteur SANYO VIDEO Vertrieb GmbH&Co., Lange Reihe 29, 2000 Hamburg I.Telefon 040/2801045-49 
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Unseriöse Machenschaften 



Wer mit Computern zu tun hat, hat 
sich meist auch mit Softwarepiralen 
herumzuschlagen. Als Softwarepira- 
ten bezeichnen wir solche Leute, die 
ohne Genehmigung Programme kopie- 
ren und weiterverkaufen. Die Inhaber 
der Firma R & S Computerorganisation 
machten sich dieses zunutze. Sie ver- 
schickten an sogenannte Piraten Ab- 
mahnungen. Die Adressen holten sie 
sich aus Anzeigen in Fachzeitschrif- 
ten. Der Inhalt dieser Briefe lautete - 
„Tests haben ergeben, daß Sie mit 
Computerprogrammen handeln, deren 
Urheberrecht Sie nicht besitzen. Dabei 
wurde festgestellt, daß es sich um 
Raubkopien handelt. Mit dem vorste- 
henden Sachverhalt verstoßen Sie ge- 
gen die Bestimmungen des § 1 UWG. 
Der von uns geschätzte Schaden be- 
läuft sich auf ca. 60 000,- DM (sechzig- 
tausend)!! Zur Vermeidung gerichtli- 
cher Schritte fordern wir Sie auf, bin- 
nen 5 Tagen zu erklären, daß Sie in 
Zukunft keine Computerprogramme 
über die Sie kein Urheberrecht besit- 
zen, zu vertreiben. Zur Begleichung 
unserer Aufwendungen erwarten wir, 
daß Sie den Betrag von 300,- DM laut 
Kostenrechnung in bar der 
Unterlassungserklärung beilegen." - 
Dann folgt eine Anmerkung, die jeden 
stutzig machen sollte. - „Einschreiben 
werden nicht in Postfächer zugestellt. 
Bitte verwenden Sie nur einen Stan- 
dardbrief." - Dieses ist nicht richtig! 
Wer einen Brief an diese Adresse ge- 
schickt und Geld beigefügt hat, wird 



nun in die Röhre gucken. Was sich 
herausstellte war folgendes: Die R & S 
Computerorganisation ist eine Schein- 
firma die kein Postfach sondern nur 
eine Postlagerkarte hatte. Diese Firma 
ist auch nicht auf dem Gewerbeamt 
oder als Abmahnverein in Berlin be- 
kannt. Eigene Nachforschungen ha- 
ben ergeben, daß die Gewerbepolizei 
unter der Leitung von Hauptkommis- 
sar Müller bereits auf diese Firma auf- 
merksam gemacht worden ist. 
Unsere Rückfrage bei der Post hatte 
ergeben, daß. dort bereits eine große 
Anzahl von Briefen eingegangen war 
und dort lagerte. Die Polizei, die sich 
nach einem Hinweis bemühte die Tä- 
ter der Postlagerkarte zu fassen, konn- 
te jedoch nur einen Jugendlichen fest- 
nehmen. Bei ihm wurden insgesamt 
106 Briefe!! beschlagnahmt. Diese 
wurden von der Oberstaatsanwalt- 
schaft Berlin ungeöffnet an ihre Ab- 
sender zurückgesandt. Sechs Briefe, 
deren Absender nicht zu ermitteln wa- 
ren, wurden geöffnet. Nach Auskunft 
von Oberstaatsanwalt Dr. Weimann 
hatte sich kein Geld in den Briefen 
befunden. Alle Briefe wurden eben- 
falls an die Absender zurückgesandt. 
Die Reaktion auf solche unseriöse Ma- 
chenschaften zeigt aber deutlich, wie 
verunsichert die Empfänger eigentlich 
waren. Eines sollte wohl allen klar 
sein, wer Progra mm e vertreibt , deren 
Urheberre ch te jedoch bei anderen 
Personen od er Ge sellschaften liegen, 
macht sich strafbar. 



Ein Kleiner, der doch schon so groß ist!!! 



Unter dem Namen GTS 80 stellt Grand 
Tree Systems Computer, Hardware 
und Software Gesellschaft, eine neue 
Reihe von . netzwerkfähigen CP/M- 
Rechnern vor. Die Rechner zeichnen 
sich durch alle nur denkbaren Varia- 
tionen bezüglich der Massenspeicher 
sowie die enorme Verarbeitungsge- 
schwindigkeit aus. Der Rechner ver- 
arbeitet ohne Probleme Software und 
Datenformate, wie sie auf dem „Wave 
Mate Bullet"* gefahren werden. An 
Schnittstellen werden standardmäßig 
angeboten: 
2 x RS 232 C 
2 % RS 422 

1 x Centronix parallel 
Sasi Bus (Winchester-Anschluß) 
ECB-Bus 

4 x 5 X A-" Floppy-Anschluß 
4 x 8-" Floppy-Anschluß 



Alle Schnittstellen sind bereits an- 
schlußfertig mit Steckern herausge- 
führt. 

Den GTS 80 gibt es ebenso in einer 
Backup Version mit zwei Festplatten, 
wobei die zweite Festplatte nur zur 
Datensicherung eingesetzt wird. 
Die Kapazitäten der Festplatten: 
10 MB formatiert 
43 MB formatiert 

Die Krönung aller GTS 80-Rechner ist 
der GTS 80m, m für Master und das 
besagt wiederum, daß unter Verwen- 
dung eines GTSm und bis zu 32 GTSn 
das wohl im Moment leistungsfähigste 
Netzwerk installiert werden kann. 
Standard Terminals werden durch 
nachrüstbare Zusatzplatinen (Platinen 
für das GTS-Netzwerk) zu vollwerti- 
gen Arbeitsplätzen innerhalb des 
Netzverbundes (Slave Workstation). 



Als Betriebssystem wird hierfür BRI- 
DOS verwendet. 

Bridos, ein Betriebssystem mit UNIX- 
Feautures, emuliert CP/M, ohne je- 
doch wie unter CP/M die Directory- 
Einträge zu limitieren. 
Das Netzwerk kann jederzeit nach 
Terminvereinbarung besichtigt und 
getestet werden. 

Der GTS 80 mit 2 x 800 KB Floppy 
Drive einschließlich CP/M 3-Lizenz, 
1 28 KRAM, DMA und 2 x SIO kostet 
DM 4736- zuzügl. MwSt. Ein Termi- 
nal mit 14"-Büdschirm in Bernstein 
mit 10 Emulationen kostet 1398- DM 
zuzügl. MwSt. 

* Wave Mate Bullet is the registered 
Trade Mark von Wave Mate Bullet. 

Grand Tree Systems Computer 
Hardware und Software Gesellschaft 
6472 Altenstadt 
Tel. 60 47 / 24 99 Tex. 4 184 951 



THORN EMI PLC 

größter britischer Elektronik-Kon- 
zern, nutzt seine, langjährigen Erfah- 
rungen auf dem Gebiet der Informa- 
tionstechnik und hat jetzt weltweit 
den neuen Geschäftsbereich „Compu- 
ter Software" gegründet. 
In Deutschland heißt das neue Unter- 
nehmen THORN EMI Computer Soft- 
ware GmbH. Als Anbieter von 
deutschsprachiger Standard Software 
für alle führenden Personal- und 
Home-Computer befindet sich 
THORN EMI seit Anfang Juni 1984 
auf dem Markt. 

Das Angebot wird hauptsächlich Busi- 
ness Software, Erziehungsprogramme 
und anspruchsvolle Unterhaltungs- 
spiele für Jugendliche und Erwachse- 
ne umfassen. Die Distribution erfolgt 
im gesamten Bundesgebiet über ein 
Netz von Handelsvertretern. THORN 
EMI besitzt sowohl eigene Software- 
häuser als auch Rechte an fremder 
Qualitätssoftware. Händlern und 
Kunden wird gleichermaßen ein kom- 
pletter Beratungsservice in allen Be- 
reichen der Computersoftware gebo- 
ten. 

Geschäftsführer Klaus D. Geiser (51), 
vorher lange Jahre in leitender Posi- 
tion bei Philips und 3M, sieht große 
Chancen auf dem stark expandieren- 
den Markt der Standard-Software. 
Der Jahresumsatz des Geschäftsbe- 
reichs Computersoftware der THORN 
EMI liegt weltweit bei 5 Mio £. Inner- 
halb der nächsten drei Jahre soll diese 
Summe verzehnfacht werden. 
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S onderteil Commodore 64 



Im Test: Micro Power 2000 



Schnelles Doppellaufwerk für den 
Commodore 

Als ein kompaktes Doppellaufwerk in 
einem Alugehäuse fanden wir die MI- 
CRO POWER 2000 nach dem Auspak- 
ken vor. Das erste was uns auffiel, war 
das ansprechende Handbuch, in dem 
alles aufgeführt ist, was ein Benutzer 
der MICRO POWER 2000 wissen 
muß. 

Die MICRO POWER 2000 ist eine in- 
telligente Doppeldiskettenstation, die 
dem Rechner keinen Speicherplatz ab- 
verlangt. Auf der Frontplatte befinden 
sich zwei Einschübe für 5 124-Zoll- 
Disketten. Eine rote Leuchtdiode ist 
für die Netzkontrolle, zwei grüne 
Leuchtdioden sind als Laufwerkkon- 
trolle gedacht. Auf der Rückseite be- 
finden sich die Anschlüsse für zwei 
serielle Buchsen und den IEEE 488- 
Bus. Neben dem Netzanschluß und 
der Sicherung befindet sich der Ein- 
und Ausschalter. Die beiden seriellen 
Anschlüsse sind zum Anschluß an den 
VC-20, CBM 64, SX 64 und den Com- 
modore Plus 4. Des weiteren können 
alle Drucker über den seriellen Port 
angeschlossen werden. Alle Commo- 
dore Rechner im Homecomputer-Be- 
reich und Rechner der Serien 2000, 
3000. 4000, 8000, 600 und 700 können 
die MICRO POWER 2000 über den 
lEEE-Bus ansteuern. 

Somit hat die MICRO POWER 2000 
allen Laufwerken im Homecomputer- 
Bereich eines voraus: die Umsteiger 
auf den PC-Bereich müssen nicht erst 
ein neues Laufwerk kaufen. 

Alle Befehle, die es für die Floppy 
1541 gibt, können für das Doppellauf- 
werk benutzt werden. Auch einfache 
Befehle wie: - Open 1,8, 1 5, "D 1=0" - 
erlauben ein einfaches Duplizieren 
von ganzen Disketten. Das Einladen 
von Programmen ist genauso einfach 
wie bei der 1541 - Load"0:Name",8 
oder Load"l:Name",8 -. Ebenso ein- 
fach lassen sich einzelne Dateien ko- 
pieren - Open 1,8,15, "cl:name=0:Na- 
me" -, dieser Befehl bewirkt, daß eine 
Einzeldatei von Laufwerk auf Lauf- 
werk 1 kopiert wird. Durch Tauschen 
der Adressen - C0=1 - wird von 1 
nach kopiert. 

Daß Geschwindigkeit keine Hexerei 
ist, beweist die Kopierzeit einer 664- 
Block-Diskette von nur 1,40 Minuten. 
Aber noch schneller arbeitet man mit 
dem IEEE 488-Bus. Das Einladen von 
Programmen ist ohne IEEE-Bus fast 
genauso langsam wie bei der 1541. Mit 



dem IEEE-Bus geht dieses aber 6mal 
schneller als bei der 1541. Auf der 
beigelegten Demodiskette ist Basic 4.0 
abgespeichert. Dieses kann jederzeit 
eingeladen werden, so daß dem Benut- 
zer viele Wege (Befehle) offenstehen. 




Natürlich gibt es einige wenige Pro- 
gramme, die auf der MICRO POWER 
2000 nicht auf Anhieb laufen. Solche 
Programme sind aber in der Minder- 



zahl, so daß dem fachkundigen Benut- 
zer keine Probleme entstehen, sie um- 
zuschreiben. Die von uns eingesetzten 
Programme Textomat, Datamat, Mul- 
tidata, Multiplan und Spielprogramme 
haben keine Probleme ergeben. 

Zusammenfassung 

Die MICRO POWER 2000 ist ein Dop- 
pellaufwerk, das dem Benutzer keine 
Wünsche offen läßt. Die Vorteile für 
das Doppellaufwerk liegen klar auf der 
Hand. Wenn der Benutzer aus dem 
Homecomputer-Bereich in den PC-Be- 
reich umsteigen will, braucht kein 
neues Laufwerk erworben zu werden. 
Die MICRO POWER 2000 ist auch im 
PC-Bereich einsetzbar. Dauertests ha- 
ben keine Beanstandungen ergeben. 
Auch das Warm werden, wie bei der 
1541, ist nicht gegeben. Die Verarbei- 
tung sammelt weitere Pluspunkte. Die 
MICRO POWER 2000 bringt viel 
Floppykomfort, die alle anderen Flop- 
pystationen für den Homecomputer- 
Bereich in den Schatten stellt. Die MI- 
CRO POWER 2000 ist im Fachhandel 
oder bei RMC Systems in Oberhausen 
zum Preis von 2695,00 DM erhältlich. 

Rolf Freitag 



Internationale Commodore Fachausstellung 



Alles Rund um den Commodore 

Anfang September war in Frankfurt 
die 4. Commodore Fachausstellung. 
Auf 4000 qm boten 63 Aussteller aus 
Schweden, der Schweiz, England, 
Österreich und Deutschland Software, 
Hardware, Erweiterungen und Litera- 
tur rund um den Commodore an. Auch 

Commodore SX 64 



Seminare, Referate und Workshops 
wurden auf der Commodore Fachaus- 
stellung '84 abgehalten. So konnte je- 
der Besucher seinen Informations- 
wünschen nachgehen. Commodore 
hat sich einige Mühe gegeben, um wir- 
kungsvolle „Software-Munition" auf- 
fahren zu können. 
Mindestens ebenso reizvoll wie die ei- 
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gene Leistungsschau des Veranstal- 
ters, war das Leistungsangebot der 63 
Aussteller. Die Angebote reichten von 
der Meßwerterfassung über die Ferti- 
gungssteuerung, bis hin zum Rad- 
sporttraining. Eine Reihe von Periphe- 
rie-Firmen hatten ebenfalls attraktive 
Neuerungen auf der Messe. So etwa 
eine Platine, mit deren Hilfe alle Pro- 
gramme für die Systeme CBM 4032, 
8032 und 8096 auf Rechnern der Mo- 
dellreihe 700 gefahren werden kön- 
nen. Die Montage ist in wenigen Mi- 
nuten möglich und - es geht kein Spei- 
cherplatz verloren. 

Ein Mekka für Compuieiheun.de 
Zu einem Mekka der Computerfreun- 
de hat sich die Commodoreshow in 
den letzten 3 Ausstellungen aufgetan. 
So haben sich in diesem Jahr mehr 
Verlage auf der Messe ein Stelldichein 
gegeben. Unter anderem so bekannte 
Namen wie Langenscheidt, Otto 
Maier und Georg Westermann. Diese 
Verlage präsentierten Lernprogram- 
me und Anleitungsbücher für Home- 
und Profi-User. 

Das Arbeitsamt und die Volkshoch- 
schule waren mit einem Stand vertre- 
ten, wo sich ratsuchende Teens und 
Twens, Schüler und Studenten Infor- 
mationen einholten. 
Großes Gedränge herrschte an den 
Ständen bei: Software Express, RMC Sy- 
stems, DATA Becker und natürlich 
Commodore. Bei RMC Systems aus 




Oberhausen ist es uns gelungen, die 
schon lange angekündigte Micro Po- 
wer 2000 zu bekommen und zu testen. 
Dort sahen wir auch einen der ersten 
Commodore SX 64 mit Doppellauf- 
werk. Jim Butterfield, auch „Commo- 
dor Papst" genannt, bekam beim An- 
blick des SX 64 mit Doppellaufwerk 
einen interessanten Gesichtsaus- 
druck, zumal Commodore bis heute 
nicht einen tragbaren Computer mit 
Doppellaufwerk herausgegeben hat. 
Eine Anmerkung sei allerdings er- 
laubt, der SX 64 hat kein 1541 -Lauf- 
werk, sondern ein kompatibles Lauf- 
werk. 

Weltweite Verbindungen wurden per 
Akustikkoppler auf dem Stand von 



Software Express aus Düsseldorf herge- 
stellt. Die Besitzer von Akustikkopp- 
ler tauschten hier ihre Erfahrungen 
und Telefonnummern aus. 
Vor sachkundigen Zuschauern zeigte 
Jim Butterfield die Fähigkeiten des 
Commodore Plus 4. Neben 4 festein- 
gebauten Programmen, die jeder beim 
Kauf selbst aussuchen kann, verfügt 



der Plus 4 über einen 60-KB-Speicher. 
Die Workshops, die auf der Messe 
durchgeführt wurden, waren immer 
gut besucht. So wie die Messe selber in 
3 Tagen von fast 18 000 Besuchern 
besucht wurde. Die 4. Internationale 
Commodore Fachausstellung wurde 
zum Erfolg für Commodore. Die Aus- 
steller und Besucher waren zufrieden. 



„Caissa"-Schachprogramm - 
eine deutsche Computer-Software 

Das Schachprogramm „Caissa" stellt 
den Beweis für ein deutsches Compu- 
terprogramm dar. Als der Autor, der 
27jährige Kieler Physikstudent Fried- 
helm Wrensch, der Firma Dynamics 
eine Arbeitskopie des Schachpro- 
gramms „Caissa" zur Vermarktung 
anbot, orientierte man sich an beste- 
henden Schachprogrammen, unter- 
suchte diese auf Stärken und Schwä- 
chen und beschloß das bis zu diesem 
Zeitpunkt bestehende Programm um 
viele Funktionen zu erweitern. In ei- 
nem Pflichtenheft wurde dem Autor 
klar umrissen vorgegeben, welche 
Änderungen nötig seien, um der Aus- 
sage „eines der stärksten Schachpro- 
gramme für den C64" gerecht zu wer- 
den. In Zusammenarbeit mit Schach- 
spielern wurde das Programm auf sei- 
ne Starke hin untersucht, selbstver- 
ständlich spielte es auch gegen auf 
dem Markt befindliche Programme,um 
die Spielstärke objektivieren zu kön- 
nen. Nach Abschluß all dieser Tests 
wurde dann das Programm zum Ver- 
kauf freigegeben. 

Caissa, die Göttin des Schachs, ist ei- 
nes der stärksten Schachprogramme 
für den Commodore C64. Sich voll 
nach den Regeln des Turnierschachs 
richtend, hat es die Fähigkeit, die Be- 
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denkzeit des Gegners zu nutzen, um 
weiter zu rechnen. Dabei kann es bis 
zu 19 Halbzüge im Voraus berechnen. 
Die Anzahl dieser Züge wird ebenso 
angezeigt, wie die der bereits ausge- 
führten. Sowohl die Neueingabe als 
auch eine Änderung von Stellungen 
(selbst während des Spielens) ist mög- 
lich. Die Lösung von Schachproble- 
men (Matt in ein bis zehn Zügen) ist 
ebenso vorgesehen, wie eine Auto- 
playfunktion. Zu den weiteren Vorzü- 
gen des Programms gehören: Automa- 
tische Bauernumwandlung (Unterum- 
wandlungen möglich), Rücknahme 
von Zügen und Zugvorschlägen. In- 
teressante Partien lassen sich auf Kas- 
sette oder Diskette abspeichern. Gese- 
hen bei: Dynamics marketing GmbH, 
2000 Hamburg 1. 



„FORMELSAMMLUNG 64" 

In Zusammenhang mit dem Girardet 
Verlag präsentiert DYNAMICS eine 
Neuheit auf dem Softwaremarkt: 
Naturwissenschaftliche Formelsammlun- 
gen für den Commodore C64 

Mit über 700 Formeln, 3 Tabellenwer- 
ken, integriertem wissenschaftlichen 
Taschenrechner, Schlagwortregister, 
automatischer Datensicherung, opti- 
scher Benutzerführung, voller Menue- 
steuerung und automatischer Daten- 
übernahme zu weiteren Formelsamm- 
lungen seien hier nur einige der wich- 
tigsten Programminhalte aufgeführt. 
Dem Anwender wird mit diesem Pro- 
gramm die Möglichkeit gegeben, in 



vorhandene Formeln Werte einzuset- 
zen. Das Ergebnis ist abspeicherbar 
und kann in weiteren Formeln und 
Formelsammlungen verwendet wer- 
den. Ein spezieller Zeichensatz unter- 
stützt die Bildschirmdarstellung von 
Sonderzeichen. 

Um eine schnelle Orientierung und ge- 
zielten Programmzugriff zu ermögli- 
chen^ ist eine Formelsammlung des 
Girardet Verlages beigelegt. 
Folgende Formelsammlungen werden 
in Kürze lieferbar sein: 
Physik, Mathematik I & II, Chemie, 
Elektronik, Statik, Elektrotechnik, 
Kfz-Technik, Sanitärhandwerk, Me- 
tallgewerbe, Bau-Holzhandwerk. 
Programm auf Diskette. 
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Unser absolutes Top-Programm in dieser Ausgabe« 

Auf vielfachen Wunsch hat sich die Redaktion entschieden, das 
Programm „Skeet", bekannt aus unserem Kassettenservice, als „Ton- 
taubenschießen-Version" , abzudrucken. 



Verwendet wurde zur Erstellung des 
Programmes ein neues Verfahren un- 
seres Hauses, um das abgedruckte Li- 
sting so kurz wie möglich zu gestalten. 
Der Vorteil liegt auf der Hand. Trotz 
gehobener Spielqualität ist das hier 
abgedruckte Listing von „Skeet" rela- 
tiv kurz (Das komplette Programm 
wurde um die Hälfte reduziert!!). 
Trotzdem bitten wir Sie, liebe Leser, 
bei der Eingabe des Listings, im beson- 
deren der Datazeilen, . sehr sorgsam 
vorzugehen. Die häufigste Ursache 
von Störungen im Programm sind nun 
einmal unterlaufene Fehler bei der 
Eingabe. 



Das Programm „Skeet" ist dem realisti- 
schen Tontaubenschießen nachemp- 
funden. Von einem Katapult geschleu- 
derte Tontauben müssen reaktions- 
schnell getroffen werden, In diesem 
Spiel kann also jeder seine eigene Mei- 
sterschaft austragen. Eine Supergrafik 
und ein hervorragender Bewegungs- 
ablauf zeichnen „Skeet" besonders 
aus. 

Hinweis: Unser neues Verfahren zur 
Erstellung kurzer und guter Program- 
me wie „Skeet", „Projekt" und „Spi- 
ders" ermöglicht es uns, Ihnen, liebe 
Leser, in jeder Ausgabe eine Spielver- 
sion der Spitzenklasse für den VC 64 




vorzustellen und abzudrucken. Wir 
wünschen Ihnen schon jetzt: gute Un- 
terhaltung! 



i rem ************************ 

2 REM * TROHIC-SÜFT PRESENTS * 

3 REM * SKEET * 

4 REM * CREfiTEB BV F.BRALL * 

5 REM * GRAPHICS BV R.BECK * 

6 rem mmmmmmmmmwM'm 

"*} > 

8 REM COBEWORt IST: CÖMPUTRONIC 

9 : 

10 POKE 56, 128 : REM BASIC-* 8000 
30 ■: 

40 POKE 53281, i 

50 PRlW'rWä ************* TRÜN IC-SOFT ************ " 

m PRIHT"» i£ SKEET 

m printv« — — " 

80 PR INT "MAS CREATEB BV: FRANK BRALL" 
90 PR INT M XB GRAPHICS BV= RAINER BECK" 

180 PP T MT » W^L^^,,, „„. , , , „„„„„„„„ ,„ , „ ,„ „, „„»» 

110 PRINTVi COPYRIGHT BV TRONIC-VERLAG (10.1384)" 

l«d0 PRXN I §ft as« e m«g aiB£^^ 

130 FORTpI TD 17=F0RI=ß TU 50: POKE 53280, I =NEXTI ' POKE S3281,T:NEXTT 

140 INPUT"M CODEWORT ";C* 

150 IFC*O l, C0MPUTft0HIC"THEh 50 

160 FORI «49984 TO 58046: READ DA: POKE I , Dfl 

170 FORI =30048 TO 50110 JREflB Dfl': POKE 1,DR 

188 FORI«50112 TO 50174= READ Dfl -POKE I,BA 

190 FORI-49856 TO 49918= READ DR: POKE I,HR 



NEXTI=REM TRÜBE 
NEXTliREM ZIELKREUZ = 
NEXTI-REM EXPL0BI0N1« 
NEXTI=REM EXPL0SI0N2« 



BLOCK 13 
BLOCK 14 
BLOCK 15 
BLOCK 11 



210 ÖÜSUB 1660 •' POKE 53288.6 

220 POKE 5324Ö, 14: POKE 53241, 13= POKE 53242, 13: POKE 53243, 13= POKE 53244,11 

230 POKE 53287,0: POKE 53288,2= POKE 53289, 2= REM COLOR 

26Ö i 

270 REM BASIC TEIL 

280 ; 

290 POKE 838, 12= REM TIME 
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300 POKE 56325/25 :REM IRQ 


TIMER 




838 PÖKE 832,7 =PÜKE 833,1 


POKE 53249,176 


310 Fil«53192 =T=i0 






840 GOSUB 1310 




320 • 






850 SVS 33000: REM WfilT 




330 POKE 832,3?-- PÜKE 833,0 


POKE 53249, 


146 


868 SVS 33003: SVS 33000 




340 GÖSUB 1360 






870 






350 SVS 33000= REM WfilT 






880 POKE 832,7 :POKE 833,1 


POKE 53249,176 


360 SVS 33803 > SVS 33006 






898 GOSUB 1310 




370 = 






908 SVS 33800: REM WfilT 


- 


380 POKE 832, 37= PÜKE 833,0 


POKE 53249, 


146 


910 SVS 33003= SVS 33089 




330 GOSUB 1310 






920 






488 SVS 33000: REM WRIT 






930 POKE 832,7 :POKE 833,1 


PÜKE 53249, 176 


410 SVS 33003= SVS 33012 






948 GOSUB 1318 




420 : 






950 SVS 33080: REM WfilT 




430 POKE 832 , 48 = POKE 833, 


POKE 53249, 


158 


960 SVS 33083: SVS 33012 




440 GOSUB 1310 






970 






450 SVS 33000: REM WRIT 






980 POKE 832,36 ; PÜKE .833,1 


PÜKE 53249,158 


460 SVS 33003: SVS 33006 




* 


99ß GOSUB 1318 




470 : 






1080 


SVS 33000: REM wrj;t 




480 POKE 832, 48: POKE 833,0 


POKE 53249, 


158 


1010 


SVS 33883: SVS 33806 




49Ö GOSUB 1310 






1020 


: 




580 SVS 33000= REM WfilT 






1030 


POKE 832,36 =POKE 833, 


t:PÜKE 53249,158 


510 SVS 33803= SVS 33009 






1048 


GOSUB 1310 




520 : 






1350 


SVS 33060: REM WfilT 




538 PÜKE 832, 48: PÜKE 8.33,0 


PÜKE 53249, 


158 


106Ö 


SVS 33003: SVS 33009 




548 GOSUB 1310 






1070 






550 SVS 33800: REM WfilT 






1080 


POKE 832,36 :PÜKE 833, 


t;POKE 53249,158 


560 SVS 33803: SVS 33012 






1896 


GÖSUB 1318 




570 : 






1100 


SVS 33000: REM WfilT 




588 PÖKE 832,83= PÜKE 833,0 


PÜKE 53249, 


176 


1110 


SVS 33803: SVS 33012 




590 GOSUB 1310 






1120 






608 SVS 33000: REM WHIT 






1130 


POKE 832,47 '-POKE 833, 


l=POKE 53249,146 


610 SVS 33003: SVS 33086 






1140 


GOSUB 1318 


, 


628 ■ 






1158 


SVS 33860: REM WfiH 




638 PÜKE 832,83= PÜKE 833,0 


PÜKE 53249, 


i?6 


1160 


SVS 33883: SVS 33012 




648 GOSUB 1318 






1170 






650 SVS 33800: REM WfilT 






1138 


POKE 832,171 :PÜKE 833 


ß:pOKE 53249,146 


&S& SVS 33003 : SVS 33009 






1190 


DÜSUB 1318 




670 ■: 






1200 


SVS 33000= REM WfilT 




688 PÜKE 832, 83= POKE 333,0 


POKE 53249, 


176 


1210 


SVS 33003: SVS 33889 




698 GOSUB 1310 






1220 






?Ö8 SVS 3300ö:REM WflIT 






1230 


PÜKE 832,171 :POKE 833 


8 : PÜKE 53249,146 


710 SVS 33003: SVS 33012 






1240 


GOSUB 1318 




?28 : ■ . 






1250 


SVS 33000: REM WfilT 




730 POKE 832, 172= POKE 833.0: POKE 53245 


,186 


1260 


SVS 338Ö3: SVS 33006 




748 GOSUB 1318 






1270 






750 SVS 33000: REM WfilT 






12S0 


GOSUB 1310: SVS33088 • REM 


WfilT 


760 SVS 33083: SVS 33886 






1290 


FORI-53191 TO 53191+25 


IF PEEK<O=160THEN ; 


770 ; 








P0KEI,162 




780 POKE 832 , 1 72 = POKE 833, Ö : POKE 53249 


,186 


1300 


NEXTI: RUN270 




790 GOSUB 1310 






1310 






8Ö8 SVS 33000= REM WfilT 






1320 


REM *** TREFFER fiNZEIGEN *** 


810 SVS 33003 : SVS 33009 






1338 






820 : 
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1340 IF PEEKC53241XM3 THEN T-T+l:POKE fll,168 :fll*Al+l 

1350 IF PEEK< 53242 K> 13 THEN T«T+l:POKE fll, 160 Jfllwfll+l 

1363 • 

1370 REM *m WINKEL-ZUFALL m* 

1388 : 

1390 WI*INT<RNBa>*4 >+2:WissWI*2 

1400 POKE 837, Wl^ RETURN 

1410 : 

1430 REM TONTAUBE 

1440 BflTR8,0, 8,8, 0,0, 0/0, 0* 0,0, 0,0, 0,0,0 

1450 BRTR0, 0,0,0,0,0,0,0,0,0,0, 14,0,0,63.. 128 

1460 BRTR0, 255, 224, 0,0, 0,0,0, 0,0, 0,0, 8, 8, 0,8,0 

1478 BRTR0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,8,0 

1480 REM ZIELKREUZ 

1490 DfiTflflj 255, 128, 1 , 8, 64, 2, 8, 32, 4, 3. 16, 8, 8, 8.. 16 
1508 BRTR8, 4, 32, 62, 2, 32, 73, 2, 32. 136, 130,32,136,130,63,255 
1518 BRTR254, 32, 136, 130, 32, 136, 130, 32, 73, 2, 32, 62, 2, 16, 8, 4, 8 
1520 BRTR8, 8, 4, 8, 16, 2, 8, 32, 1 , 8, 64, 8, 255, 128 
1530 REM EXPLOSION 1 

1540 BRTR8, , 8, 0, 0, 0, 0, 0, 8, 0, 0, 0, 0, 0, 0, 
1550 BflTflS, 0,4, 145, 0,26, 132, 0,2, 74, 128, 54, 48, 0,25, 54 
1560 BRTR64, 2, 108, 128, 43, 73, 0, 4, 49, 64, 9, 6, 0,8, 18,0.1 
1570 BRTR8, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0 
1580 REM EÜPLÜSION 2 

1590 DRTR0, 0,0, 0,0, 0,4, 0,128, 0,0, 32,0.. 68, 80, 16 
1600 BATfi8,0,2,0,0,0,8, 18,8,8,0,48,64,0, 16,8 
1610 BRTflö, 0,0, 1,0,2,0, 1,0,0,0,0,0, 12, 128.8,0 
1620 BRTR8, 32, 0, 4, 0, 0, 0,0,0,8, 0,8,0,0 
1630 
1650 : 

1660 REM VIBEÖCÜNTRÜLLER UMSTELLEN 
1670 REM SPRITES RB 49152 » $C00@ 
1680 REM 8PRITESP0INTER 53240 ■ *CFF9 
1690 REM VIDEOSCREEN RB 52224 » $CC80 
1700 REM ZEICHENSflTZ RB 53248 ■ $BÖ80 
1710 REM 

€720 FORI« 32768 TU 32900 :REflD Bfl:POK£I,Dfl:NEXTI =SVS 32768 
1730 REM *M MASCHINENPROGRAMM *** 

1740 BATA 76,6,128,76,73,128,120,173,0,221,41,252/141,0,221,169,52 
1750 BRTR 141,24,208,169,204,141,136,2,169,97,141,17,3,169,128,141,18 
1760 BRTR 3,160,0,132,3,169,208,133,4,162,16,169,51,133.1/177/3 
1770 BRTR 72,169,48,133,1,104,145,3,200,203,239,230,4,282,208,234,169 
1780 BRTR 55/133, 1..S8/96; 120/ 165/ 1,72, 32, 253, 174/ 32/235, 183/169/48 
1798 BRTR 133, 1 , 160, 0/ 138, 145, 20, 104, 133, 1 , 88, 96, 165, 20, 72, 165, 21 
1800 BRTR 72,32,247, 183, 165, 1,72, 169,52, 120, 133, 1, 160,0, 177,20, 168 
1810 BRTR 104,133,1,88,104,133,21,104,133,20,76,162,179,255 
1820 REM *** ZEICHENSflTZ RENBERH *** 
1830 BRTR 33 ,0,8,0,0,8,0,0,0 
1848 BRTR 77 ,255,255,255,255,255,255,255,31 
1850 BRTR 176' ,255,255/255/255,127/31/7/0 
1868 BRTR 177 ,191,159,135,129,128,128,128,0 
1870 BRTR 178 ,0,1,3/15/31,127,255,255 
1880 BRTR 179 ,0,248,252,252,254,255,255,255 
1898 BRTR 188 ,255,255,255,255,255,255,252,0 
1900 BRTR 181 ,175,218,173,251,150,213,183,173 
1918 BRTR 182 ,171,245,106,183,181,223,169, 101 
1920 BRTR 183 , 255, 189, 247, 255, 181 , 255/ 255/ 187 
1938 BRTR 184 ,255,239,191,255,235,255,255,247 

Computronic - 11 



iMno^M 



1948 
1958 

i960 
1970 
1980 
1990 
2008 
26 lö 
202Ö 
2Ö38 
2Ö40 
2ÖS0 
2060 
2078 
20SÖ 
2890 
2100 
2110 
2120 
2130 
2140 
2150 
2168 
2170 

2180 
2190 
2200 
2210 
2220 
2230 
224Ö 
2250 
2260 
2270 
2280 



DATA 
DATA 

DATA 

DATA 

DATA 

DATA 

READ 

IF 

IF 



185 
186 
187 
188 

210 
-1 

ZEÖ-1 
2EO-1 



, 213, 234, 253, 255, 255, 255, 255, 255 
,205,170,117.176,237,254.255,255 
,179,85,174,13,183,127,255,255 
171 , 87, 191 , 255, 255, 255, 255, 255 
55 



,255,255,255,255,255,255,0,6 



a 



PRINT"3MI 

PRINT"« n 

PRINT"« a 

PRINT"« 3 

PRINT"« 

PRINT"« 

PRINT 11 » 

PRINT"« 

PRINT 11 »! 

PRINT 1 '« 



THEN 
THEN 



565 



FORI»0TO7:READ 

2000 



DA ; 8V332771 , C5324S+<ZE*8>+I ) , DA : HEXT 
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9 



67 



: 655« 
89w« 
« 
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I 



■ 
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fit i 

ii; : 84 I 4 
ii7665;i ?ßi 68? 
PR I NT " »Lw'BSSSH IS '• i 6 J ! S ; 99 ; 

PRiNT"»i,iEi; 

PRINT"» I IIa 

»rar 
■».fiiäa. . . 

Si ^ÜMIiiSi. 

ii. '«».n'äL.. 

üi^ » fi'lIKäL 



465 
• 5 j w ■ / ■ 
BJEHRE3 
SWTAUK3 



« 



« 



ttüS 



« 



« 
« 



466 
:6 K 



0, 



PRINT 11 » 
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d223, 



PÜKE 

2300 POKE 53281,1 

FORI« 33800 



160= poke 56295,2 



50008 
60000 

60801 



TU 34283 ;READ BA : POKE I, DA : HEXT I 



600Ö3 
60004 



mms 

6000? 

60008 
60809 
68010 
60811 
60012 
60013 
60014 
60015 
60016 
6001? 
60018 



DATA 76, 130, 131/76, 24?, 128, 76,239, 129, 76, 3, 131, 76, 170,131,128, 169 
DATA 2?, 141,20,3, 169, 129, 141,21,3, 169,0, 141,72,3, 169,2, 141 
DATA ?i, 3', 88, 96/ 120,169, 49, 141, 28, 3, 169, 234, 141, 21, 3, 88, 96 
DATA 169,224,141,2,220, 173,0,220, 141,68,3, 169,255, 141,2,228, 1?3 
DATA 68,3,41,1,208,3,32,147,129,173,68,3,41,2,208,3,32 
DATA 151,129,173,68,3,41,4,208,3,32,89,129,173,68,3,41,8 
DATA 208,3,32, 117, 129,76, 155, 129,76,49,234, 173,65,3,298,5, 173 
DATA 64, 3, 248, 17, 56, 173,64,3,233, 1,141, 64, 3, 173, 65,3, 233 
DATA 0,141,65,3,96,173,65,3,240,7,173,64,3,281,80,16,243 
DATA 24, 173,64,3,105, 1,141, 64, 3, 173, 65, 3, 105, 0,141, 65, 3 
DATA 96, 206, 1,208, 96, 238, 1,208, 96, 173, 64, 3, 141, 0,208, 173, 65 
BATA 3, 24)1,11,173,16, 208, 9, 1,141, 16, 208, 76, 86, 129, 173, 16, 208 
DATA 41,254,141,16,208,76,86,129, 173, 64, 3, 141, 0,208,173, 65, 3 
DATA 240, 9, 173, 16, 208, 9, 1,141,16, 208, 96, 173, 16, 208, 41 , 254, 141 
DATA 16, 208,96, 72, 138, 72, 152, 72, 174,70, 3, 160, 150, 136, 208, 253, 202 
DATA 208,248,184,168,104,170,104,96,169,0,141,67,3,169,50,141,72 
DATA 3,169,40,141,66,3,169,130,141,3,208,172,69,3,32,114,130 
DATA 173, ?2,3,2Ö8,6, 32, 172, 130, 76, 23, 130, 206, 72, 3, 24, 173, 66 
DATA 3,105,1,141,66,3,173,67,3,105,0,141,67,3,136,208,6 
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60013 DflTfl 172,69,3,206,3,288,32,114,1.30,173,249,207,201,15,288,15,286 
60020 DflTfl 78,3,208,10,169,11,141,249,207,169,20,141,78,3,173,249,287 
DflTfl 281 , 1 1 , 2S6 i 13, 206, 78, 3, 208, 8, 173, 21 , 208, 41 , 253, 141 , 21 , 208 



60Ö2 i 
66022 
6Ö023 
60824 
68025 
6Ö026 
6Ö027 
68828 
6082'3 
60030 
60831 
60032 
60833 
68034 
60035 
68036 
6Ö037 
68038 
6Ö039 
60840 
60841 
68042 
68043 
68044 
60846 
68046 
68847 
60848 
68049 
68050 
680.51 
68852 
68053 
68054 



DflTfl 32, 217, 129, 173, 67, 3, 201 , 1 , 208, 161 , 173, 66^ 3.« 201 , 108, 268, 154 
DflTfl 76,14,129,173,66,3,141,2,208, 173,67,3,248,9, 173,16,208 
DflTfl 9,2,141,16,208,96,173,16,208.41,253,141,16,208,96,173,73 
DflTfl 3, 141,4,208,173,74,3,248,9,173,16,288,9,4, 141,16,288 
DflTfl 96, 173, 16, 288, 41, 251, 141, 16, 288, 96, 128, 169, £24, 141, 2. 228, 173 
DflTfl 8,228, 141,68,3,169,255, 141,2,228,173,68,3,41,16,240,2 
DflTfl 88,96,173,71,3,248,249, 169,18,141,1,212,169,0,141,4,212 
DflTfl 169,15,141,24,212,169,9,141,5,212,169,131,141,4,212,32,248 
DflTfl 132, 173, 75, 3, 288, 18, 169, 38, 141 , 72, 3, 286, 71 , 3, 88, 9S> 169 
DflTfl 15,141,249,207,169,28,141,78,3,76,236,130,169,58,141,72,3 
DflTfl 169,1,141,67,3,169,60,141,66,3,169, 138,141,3,288,172,69 
DflTfl 3, 32, 1 14, 138, 173, 72, 3, 288, 6, 32, 172, 138, 76, 43, 131 , 286, 72 
DflTfl 3,56, 173,66,3,233,1, 141,66,3,173,67,3,233,8, 141,67 
DflTfl 3, 136,288,6,172,69,3,286,3,288,32,114,130,173,249,287,281 
DflTfl 15,203,15,286,78,3,208, 18, 169,11,141,249,287,169,20,141,78 
DflTfl 3, 173, 249, 287, 201 ,11, 288, 13, 206, 78, 3, 208, 8, 173, 21 , 288, 41 
DflTfl 253, 141 , 21 , 288, 32, 217, 129, 173, 67, 3, 288, 163, 173, 66 } 3, 288, 158 
DflTfl 76,14,129,169,13,141,249,287,141,258,287,169,15,141,21,288,32 
DflTfl 188,129,169,224,141,2,220,173,8,228,141,68,3,169,255,141,2 
DflTfl 228,173,68,3,41,16,288,233,96,169,50,141,72,3,169,8,141 
DflTfl 67,3,169,48,141,66,3,169,1,141,74,3,169,68,141,73,3 
DflTfl 169, 130, 141,3,208, 141,5,288, 172, 69, 3,32, 114, 138,32, 143, 138 
DflTfl 173,72,3,288,6,32,132,132,76,226,131,206,72,3,24,173,66 
DflTfl 3, 185, 1, 141,66,3, 173,67,3, 105,0, 141,67,3,56, 173/73 
DflTfl 3,233,l,14i:.73,3, 173,74,3,233,0,141,74,3,136,288,9 
DflTfl 172,69,3,286,3,283,206,5,208,32,114,130,32,143,138,173,249 
DflTfl 287,281, 15,288,15,206,78,3,288,18,169,11,141,249,287,169,28 
DflTfl 141,78,3,173,249,207,281,11,208,13,206,78,3,208,8,173,21 
DflTfl 288,41,253,141,21,288,173,250,287,281,15,288,15,286,79,3,288 
DflTfl 10,169,11,141,258,207,169,20,141,79,3,173,250,207,281,11,208 
DflTfl 13,206,79,3,208,8,173,21,288,41,251,141,21,288,32,217,129 
DflTfl 173,67,3,201,1,248,3,76,212,131,173,66,3,281,180,240,3 
DflTfl 76,212,131,76,14,129,120,169,224,141,2,228,173,8,228,141,68 
DflTfl 3,169,255,141,2,228,173,68,3,41,16,248,2,88,96,173,71 
o DflTfl 3, 248, 249, 169, 10, 141 , 1 , 212, 169, 0, 141 ,4,212, 169, 15, 141 , 24 
68857 DflTfl 212,169,9,141,5,212,169,131,141,4,212,32,68,133,173,75,3 
DflTfl 240,34,173,75,3,41,1,240,18,169,15,141,249,287,169,28,141 
DflTfl 78,3,173,75,3,41,2,248,18,169,15,141,258,207,169,28,141 
DflTfl 79,3,169,38,141,72,3,286,71,3,88,96,169,8,141,75,3 
DflTfl 56,173,66,3,233,12,141,76,3,173,67,3,233,8,141,77,3 
DflTfl 56,173,64,3,237,76,3,141,76,3,173,65,3,237,77,3,141 
DflTfl 77,3.201,0,208,38,173,76,3,41,224,208,31,24,173,1,288 
DflTfl 185,8,141,76,3,56,173,76,3,237,3,288,141,76,3,173,76 
DflTfl 3,41,224,208,5,169,1,141,75,3,96,169,0,141.75,3.56 
68866 DflTfl 173.66.3,233,12.141,76,3,173,67,3,233,8,141,77,3,56 
68Ö67 DflTfl 173,64,3,237,76,3,141,76,3,173,65,3,237,77,3,141,77 
60868 DflTfl 3,201,8,288,38,173,76,3,41,224,288,31,24, 173,1,288,185 
6M69 DflTfl 8,141,76,3,56,173,76,3,237,3,288,141,76,3,173,76,3 
68878 DflTfl 41,224,288,5,169,1,141,75,3,234,56,173,-73,3,233,12,141 
60871 DflTfl 76,3,173,74,3,233,8, 141,77,3,56,173,64,3,237,76,3 
60072 DflTfl 141,76,3,173,65,3,237,77,3.141,77,3,201,0,288,41,173 

68873 DflTfl 76,3,41,248,288,34,24, 173, 1,288, 185,8, 141,76,3,56, 173 

68874 DflTfl 76, 3, 237, 5, 288, 141 , 76, 3, 173, 76^ 3,41 , 248, 288, 8, 173, 75 
60875 DflTfl 3,9,2,141,75,3,96,127,255 

68888 RETURN 



6Ö059 
6ÖÖ6Ö 
68061 
68862 
68063 
68064 
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Ein Sprite- und Zeichen-Designer mit viel Komfort für den C-64. 
Mit dem hier vorgestellten Programm lassen sich Multicolor- sowie 
normale Sprites auf einfachste Weise erstellen. 



Da außerdem auch noch der Zei- 
chensatz des Commodore 64 geän- 
dert werden kann, ist dieses Pro- 
gramm jedem Programmierer zu 
empfehlen. Das Programm ist mit ei- 
nem Generator ausgestattet, welcher 
ein Basic-Unterprogramm erzeugt, das 
in Spielen verwendet werden kann. 
Dieses Unterprogramm besteht aus ei- 
nigen Data-Zeilen, die eine Maschi- 
nenroutine, Sprites und die neu defi- 
nierten Zeichen enthalten. 
Durch Aufruf des Unterprogramme s 
wird zuerst der Video-Bereich, wel- 
cher sonst im Bereich bis 16384 liegt, 
nach 49152 bis 65536 umgelegt. Der 
Bildschirm ist nun statt 1024 ab 
Adresse 52224 erreichbar. Nach die- 
ser Umbelegung besteht die Möglich- 
keit 48 Sprites zu definieren, ohne den 
Basic-Bereich zu überschreiben. Die 
Sprites müssen nun ab Adresse 49152 
abgelegt werden. Die Block-Nummern 
(Spritepointer) sind ab der Adresse 
53240 erreichbar. Zu beachten ist 
also, das Block ab Adresse 49152 
und nicht ab Adresse vom Control- 
ler gelesen wird. 

Außer dieser Umbelegung wird der 
Zeichensatz in den Ram-Bereich 
$DO00-$DFFF kopiert und nachträg- 
lich um die neu definierten Zeichen 
geändert. Ebenso werden die definier- 
ten Sprites in die entsprechenden 
Blöcke gelesen. 

Start des Designers 

Nach dem Start des Programmes mit 
„RUN" kommt man in ein Hauptme- 
nue, welches folgende Möglichkeiten 
bietet: 

Taste Fl Einfarbige Sprites definieren 
bzw. ändern 

Taste F3 Multicolor-Sprites definieren 
bzw. ändern 

Taste F5 Zeichensatz umdefinieren 
Taste F7 Sprites und Zeichensatz wer- 
den abgespeichert 

Taste F2 Sprites und Zeichensatz, wer-, 
den eingeladen 

Taste F4 Ein Unterprogramm mit den 
Sprites und den definierten Zeichen 
wird erstellt. 

Nach drücken der jeweiligen Funk- 
tions-Taste kommt man in das ent- 
sprechende Unterprogramm. Wie die- 
se im einzelnen ablaufen, wird in den 
nächsten Abschnitten beschrieben. 

Einfarbige Sprites 

Nach Aufruf dieses Programmteiles 



erscheint links ein 24 x 21 großes Fen- 
ster (Editier-Fenster), indem mit den 
Cursor-Tasten beliebig umhergefah- 
ren werden kann. Mit der Taste „1" 
können Punkte gesetzt und mit der 
Taste „<-" gelöscht werden. Unab- 
hängig von diesem Fenster stehen auf 
der rechten Bildseite einige Befehle, 
welche die Definition erheblich er- 
leichtern können. Im einzelnen leisten 
diese Befehle folgendes: 
„+"-und „-"-Befehl 

Unabhängig von dem linken Editier- 
Fenster wird am rechten unteren Rand 
ein Sprite dargestellt, wir nennen die- 
ses Sprite -Fenster, Über diesem Spri- 
te- Fenster wird angezeigt, welcher 
Block gerade im Sprite-Fenster 
sichtbar ist. Mit den Tasten „+" kann 
man nun die Block-Nr. erhöhen und 
somit ein anderes Sprite sichtbar ma- 
chen. Mit dem Befehl „-" läßt sich die 
Block-Nr. wieder erniedrigen. 
„H"- und „V"-Befehl 
Mit „H" kann man das Sprite-Fenster 
horizontal vergrößern und wieder ver- 
kleinern. Mit „V" ist die vertikale Grö- 
ße umschaltbar. 
E (Editieren) 

Dieser Befehl übernimmt das darge- 
stellte Sprite-Fenster in das große Edi- 
tier-Fenster. Zu beachten ist, daß das 
Editier-Fenster nicht vorher gelöscht 
wird und deshalb schon gesetzte 
Punkte erhalten bleiben. 
C (Clear) 

Das Editier-Fenster wird gelöscht. 
= (Definieren) 

Das mit dem Editier-Fenster erstellte 
Sprite wird von dem angezeigten Spri- 
te-Fenster übernommen. 
I (Invertieren) 

Das Editier-Fenster wird invertiert. 
R (Rotieren) 

Das Sprite wird um eine Achse im 
Uhrzeigersinn gedreht. Da Sprites 
nicht ganz quadratisch sind, gehen ei- 
nige Punkte verloren. 
X (Spiegeln) 

Das Sprite wird um die vertikale Ach- 
se gedreht. Möchte man beispielswei- " 
se ein Männchen zeichnen, so braucht 
man dieses nur in eine Richtung zu 
zeichnen und dreht es dann mit diesem 
Befehl um. 
Y (Spiegeln) 

Entspricht dem X-Befehl, jedoch wird 
hier um die horizontale Achse ge- 
dreht. 

Fl (Color Ground) 
Mit dieser Taste läßt sich die Hinter- 



grundfarbe des Bildschirmes wech- 
seln. 

F3 (Color Sprite) 

Mit dieser Taste läßt sich die Farbe des 
Sprites ändern. 

>f< Mit dieser Taste kommt man 
wieder ins Hauptmenue. 

M ulticolor-Sprites 

Nach Aufruf dieses Programmteiles 
erscheint wie bei den einfarbigen Spri- 
tes links ein Editier-Fenster. Dieses ist 
jedoch in diesem Fall nur 12x12 Fel- 
der groß, da jeder Punkt 3 Farben an- 
nehmen kann. Zu bedenken ist, daß 
später jeder Punkt in doppelter Breite 
dargestellt wird. Mit folgenden Befeh- 
len kann gearbeitet werden: 
Taste „ 1 " setzt Punkt mit Farbe 1 
Taste „2" setzt Punkt mit Farbe 2 
Taste „3" setzt Punkt mit Farbe 3 
Taste „ <-" löscht Punkt, also Hinter- 
grundfarbe 

Taste „Fl" wählt Hintergrundfarbe 
Taste „F3" wählt Farbe 1 
Taste „F5" wählt färbe 2 
Taste „F7" wählt Farbe 3 
Die Befehle X, Y, C, =, E, +, - H, V 
haben die gleiche Funktion wie bei den 
einfarbigen Sprites und werden des- 
halb nicht mehr beschrieben. 

S (SWAP) 

Zwei Sprites können ausgetauscht 

werden. Beispielsweise kann man 

Spriteblock 3 und Spriteblock 40 mit 

folgender Tastenfolge austauschen: 

S 

3 (Return) 
40 (Return) 

„T"- und „R" -Befehl 
Neben dem normalen Sprite-Fenster 
gibt es noch ein Vierer-Fenster. Dieses 
befindet sich etwa in der unteren Mitte 
und zeigt 4 hintereinanderfolgende 
Blöcke gleichzeitig an. Man hat so die 
Möglichkeit, mehrere Sprites für eine 
Figur zu definieren. Mit der Taste „T" 
kann man jeweils um 4 Blöcke vor- 
springen und mit Taste „R" jeweils um 

4 Blöcke zurückspringen. 

D (Data in) 

Mit der Hilfe dieses Befehles kann in 
den " angewählten Block ein Sprite 
durch die dezimale Eingabe von 63 
Zahlen definiert werden. Möchte man 
nur sehen, welche Zahlen in dem 
Block definiert sind, so genügt das ein- 
malige Drücken der Taste D sowie das 
Weiterzählen mit „Return". Möchte 
man während der Eingabe um eine 
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Zahl zurück, so geschied dies mit dem 
Befehl „-". Mit „•" kann man die Ein- 
gabe abbrechen. 

Zeichensatz ändern 

Um beispielsweise schöne Spiele pro- 
grammieren zu können, ist auf die De- 
finition neuer Zeichen kaum noch zu 
verzichten. Gegenüber der hochauflö- 
senden Grafik hat die Definition von 
Sonderzeichen folgende Vorteile: 

- Einfacher zu definieren. 

- Wesentlich weniger Speicherplatz 
wird benötigt. 

- Wesentlich schneller im Spiel zu 
verändern (Print/Poke). 

Der hier vorgestellte Zeichen-Desi- 
gner ist an Luxus wohl kaum noch zu 
übertreffen. Es lassen sich bis maximal 
512 Zeichen definieren. 
Nach dem Start erscheinen links oben 
gleich 4 Editier-Fenster, die bündig 
aneinandersitzen, es ist so möglich, 
gleich mehrere Zeichen für eine Figur 
zu definieren. 

Mit „ 1 " wird ein Punkt gesetzt und mit 
„<-" wieder gelöscht. 
Mit „C" werden alle Editier-Fenster 
gleichzeitig gelöscht. 
Die Befehle X, Y, R, I entsprechen den 
schon beschriebenen Funktionen. Zu- 
sätzlich hat man nach der Eingabe des 
Befehles die Wahl, ob man nur ein 
bestimmtes Fenster oder auch gleich 
alle behandeln möchte. Um beispiels- 
weise Fenster 2 zu rotieren, geben Sie 
R 2 (Return) ein. Um alle zu rotieren, 
gibt man RA (Return) ein. 
E (Editieren) 

Nach Eingabe dieses Befehles fragt der 
Computer erst nach dem Fenster (1-4) 
und dann nach dem Zeichen. Jedem 



Zeichen ist eine Zahl von bis 255 
zugeordnet, welche leicht durch die 
rechts angezeigte Zeichen-Tabelle er- 
kennbar ist. 
= (Definieren) 

Wie bei dem E-Befehl wird erst nach 
dem Fenster und dann nach dem Zei- 
chen gefragt. Das erstellte Zeichen 
wird dann an die gewünschte Stelle 
gelegt. 

T (Table/Zeichensatz wählen) 
Mit diesem Befehl kann man zwischen 
zwei Zeichensätzen umschalten. Ent- 
weder Groß-/Kleinschrift oder Groß- 
schrift/Grafik. 

Save Sprites' und Zeichensatz 
Durch Drücken der Funktionstaste F7 
wird der definierte Zeichensatz sowie 
alle 48 Sprite-Blöcke auf Diskette ge- 
schrieben. Ersetzt man in Zeile 38040 
die Zahl 8 durch eine 1 , so kann man 
auch auf Kassette saven. Da dies je- 
doch schon auf Diskette bis zu 4 Minu- 
ten dauern kann, ist Kassette weniger 
sinnvoll. 

Load Sprites und Zeichensatz 
Dies ist das Gegenstück zum Save- 
Befehl. Sprites und Zeichensatz kön- 
nen eingeladen und erweitert oder edi- 
tiert werden. Um mit Kassette arbeiten 
zu können, muß in Zeile 39040 die 
Zahl 8 durch eine 1 ersetzt werden. 

Programm-Generator 
Sind alle Zeichen und/oder Sprites de- 
finiert und abgespeichert, so hat man 
mit diesem Befehl die Möglichkeit, die 
Sprites und neuen Zeichen in kompak- 
ter Form als Basic-Programm abzule- 
gen. 



Nach Betätigen der Taste F4 erfolgt die 
Frage nach Sprites von/bis. Hier muß 
nun die erste und letzte Block- Num- 
mer der definierten Sprites angegeben 
werden. Hat man kein Sprite, sondern 
nur Zeichen definiert, so wählt man 
die erste Block-Nr. größer als die 
zweite. 

Nach dieser Eingabe erscheint die 
Meldung „Wait 5 Min!", in dieser Zeit 
wird nun das am Anfang dieser Be- 
schreibung erwähnte Unterprogramm, 
erzeugt. Ist der Generierungsvorgang 
beendet, so steht das neue Programm 
im Speicher und wird automatisch 
ausgelistet. Neben der Verschiebung 
des Controllers setzt dieses Unterpro- 
gramm das Basic-Ende auf $8000 her- 
ab. Der Speicherbereich von 32901 bis 
40959 ist nicht belegt und kann somit 
für Maschinenroutinen benutzt wer- 
den. 

Bei der Erweiterung des Unterpro- 
grammes zu einem Spiel sollte man die 
Zeilen von 1 bis 49998 benutzen. 

Achtung! 

Da das hier abgedruckte Basic-Pro- 
gramm ein Maschinenprogramm ent- 
hält, sollte man bei der Eingabe sehr 
gewissenhaft vorgehen. Besonders 
sollte man darauf achten, daß man 
beim Abtippen der Data-Zeilen keinen 
Fehler macht, da der Computer sonst 
abstürzen kann. Ebenso sollte man 
darauf achten, daß man die Zeilen- 
Nummern und REM-Zeilen so über- 
nimmt, wie sie hier abgedruckt sind. 
Vor dem Start mit RUN sollte man das 
Programm mindestens einmal abge- 
speichert haben. 
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2 
•-> 
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REM 
REM 
REN 
REM 
REM 
REM 
PÜKE 



* GRAFIK-DESIGNER * * 

* <C> E.REIF * #* 

* BRD 1984 * * 

******************* **** 



**** 

* * 
**** 

* * 
* * * 



56.120= REM BASIC - $8000 



15 PÜKE £5Ö,128:D1M 

108 FQR1=32768 TO 32908'READ DA = PÜKE I,B 

fl:NEXTl:-GÜSUB 50009 

132 RESTORE : FORI «32768 TU 32908 -READ DA = 

PÜKE I, DR: HEXT I 

104 = 

105 REM *** MASCHINENPROGRAMM *** 

106 = 

110 DATA 76,6,128,76,81,128,120,173,0,22 
1,41,252, 141,8,221, 169,56 

111 DATA 141,24,288,169,204,141,136,2,16 
9, 105, 141 , 17,3, 169, 128, 141 , 18 

1 1 2 DATA 3 , 1 60 ,0,1 32 ,3,1 32 , 247 , 1 69 , 208 , 1 
33,4, 169,224, 133,248, 162, 16 



113 DATA 169,51,133,1,177,3,72,169,48,13 
3, 1 , 184, 145, 247, 200, 208, 239 

1 1 4 DATA 230 , 4 , 230 , 248 , 202 , 208 , 232 , 1 69 , 5 

5,133,1,88,96,120,165,1,72 

115 DATA 32,253,174,32,235,183,169,48,13 
3, 1 , 160, 0, 138, 145, 20, 104, 133 

116 DATA 1,88,96,165,20,72,165,21,72,32, 
247, 183, 165, 1,72, 169,52 

1 1 7 DATA 1 20 , i 33 , 1 , 160 , Ö , 177 , 20 , 168 , 1 04 , 
133,1,88,104,133,21,104,133 

118 DATA 20,76,162,179,255 
18120 SVS 8*4096 

18130 PÜKE 53281 , 1 : PÜKE53280, 2 = PÜKE 5326 
9,ö:PRIHTCHR*a42)/ 

i02ö0 1=0 :print." rasa grafik-designer .... 

...(C) E.REIF " 

10210 PRI.NT"B r—, t ; : 

10220 PRINT"M IF1I — >l EINFARBIGE SPRIT 

E'SI" 

10230 PRINT"ii '■— -' '" " 

,-,«—..' ii 
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10248 PRINT".!« 



1025Ö PRINT" Hl IF3I --Ol MEHRFARBIGE SPRIT 

£ '' '" I " 

10260 PRINT "Ja '- — '' * — 

1027Ö PRINT"iS /—, • ' 

— — , r •» 

10280 PRINT"ffl IF5I 

RN i" 

10290 •PRINT ,, S '• — *' 



->l ZEICHENSATZ AENDE 



10295 PRINT "31 / — •■, 

V 

10296 PRINT"Ü JF?I 
HENI" 

1029? PRINT"« '■ — -' 

10300 PR1NT (, ;3 /~~- t 
- — s » 

10301 print"« if2i 
heMI" 

10302 PRINT"« '"— -' 

10305 PRINTE /"—-, 



SfiVE SPRITES/ZEIC 



->ILOflD SPRITES/ZEIC 



r 



10306 PRINT "3 IF4I — > I PROGRAMM GENERflTO 

R . I" 

1030? PRINT "3 '~-' '- — ' 

10460 GET E* =T=T+1 

10410 "IF £*="■" THEN 11000 

1042Ö IF E*»"S ,, THEN 20080 

10425 IF E*»"I"THEN 23000 

10430 IF E#as"H"THEN 38000 

10435 IF E*s"SrTHEN 39008 

10438 IF E#a"K"TH£N 40000 

10440 IF T=20 THEN T=0: 1=1+1 = POKE 53280, 

I = IF I>8 THENIai 

10458 GOTO 104Ö0 

10999 = 

11008 REM m*. EINFARBIGE SPRITES *** 

11081 : 

11011 PÜKE 53280, l:POKE 53281, 1 : PRINT"3S 
EINFARBIGE SPRITES" 

11012 POKE 53248 , 250 : PÜKE53249 , 200 : POKE 
53276,0 

11013 PÜKE 53269,1= POKE 5328?, 0: P0KE5324 
0,BL' 

11015 VI =52304 : Ffis55376 : CM»? : XM=0 : XP»0 : V 
p Ä : VM~Ö : CS«0 = CG™1 

11016 FORI s0 TO 20= PRINT 

1 1020 PR INT" IM.. , , " .; 

:NEXTI 

11034 PRINT :PRINT"MB t --> MENUE"; 

11035 PRINT"»'; 

11040 PRINTTRB<24)"SF1 COLOR 6RÜUND" 

1 1 650 PR I NT " — 

OLOR SPRITE" 

11066 PRINTTAB<25) J, 8l SETZE PUNKT" 

11070 PRIHTTAB<25)"S*- CLEAR PUNKT" 

11089 PRINTTflB<25)"SK X-SPIEGELN" 



f: 



i 1 090 PR I NTTAB < 25 > " Stf V-SP I EGELN " 

11100 PRIHTTAB<25)"SE ROTIEREN" 

11110 PRINTTAB<25)"BI INVERTIEREN" 

11120 PRINTTfiB<25> M HC LöESCHEN" 

1 1 1 30 PR 1 NTTFIB < 25') " fe DEF I N I EREN " 

11140 PftINTTflB<25)"Ä EDITIEREN" 

11150 PRINT 

11160 PRINTTRB< 23 >"*•/'- WflEHLEN" 

11170 PRlNTTfiB<25)"SH/V GROESSE" 

11180 PRINT 

1 1 1 90 PR I HTTflB < 25 > " SBLÖCK = " - POKE F A , Ö 

11210 print" mmmmsmmsM" r ab < 3 1 ) bl 

11300 GET E*'IF E*«""THEN 11300 

11310 IF EM" + H flND BL<47 THEN BL=BL+i:pü 

KE 53240 , BL : GOTO 1 1 200 

11320 IF E*»"» 1, flNB BL>0 THEN BL=BL-i:PÜ 

KE 53240, BL= GOTO 11200 

11330 IF E**"il"AND XP<23 THEN XP-XP+i:GG 

TO 12000 

11340 IF El:« "II" AHB XP>0 THEN XP*XP-l=GOT 

12000 

11350 IF E$~"j6J"AND VP<20 THEN YP*VP+1:GÜ 

TO 12000 

11360 IF E*» M .TRND VP>0 THEN VP=VP- 1 = GOT 

Ö 1200Ö 

11370 IF E*="l" THEN POKE CFA+(40*VM)+XM 

> , 6 : CM«6 : GOTO 11300 

11380 IF £*«"*■" THEN POKE CFfl+<40*VM)+XM 

). 7 = CM«?: GOTO li%m 

11390 IF E*«"C" THEN 11000 

11400 IF E*«"«" THEN CG<G+i = IF CG>15 TH 

EN CG»0 

11410 IF E**"i" THEN CS=CS+1.'IF CS>15 TH 

EN CS-ß 

11420 IF E*~"V" AND PEEKC53271 )OÖ THEN 

POKE 53271,0= goto 11300 

11430 IF E$» H V" AND PEEK< 53271) Ol THEN 

PÜKE 53271,1: GOTO 11300 

11440 IF E$="H" AND PEEKC 53277)00 THEN 

POKE 53277,0: GOTO 11300 

11450 IF E*«"H H AHB PEEK< 53277) Ol THEN 

PÜKE 53277, 1 : GOTO 1 1300 

Ü455 IF E$*"I" THEN 13000 

11456 IF E*="X" THEN 14Ö00 

11457 IF E*»"V" THEN 15000 

11458 IF E*»'^" THEN 16000 ■ 
11460 IF E*s»t» THEN 10130 
11465 IF E*-"»" THEN 17000 
11470 IF E$-"E'* THEN 18000 

11580 POKE 53281, CG: POKE 53267 ^ CS = GOTO 1 

1300 

11999 : 

12000 REM *#* CURSOR ZEIGEN *** 

12001 : 

12010 POKE < FA+ < 40*Jt'M ) +XM > , CM. 

12020 VM-VP : XM=XP : CM«PEEK<FA+<40#VM)+XM) . 

1 2030 POKE i F A+ ( 40#VP ) +XP ) , Ö 
12048 GOTO 11300 
12999 : 
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13380 REM ##* INVERTIEREN **# 

13001 = 

13805 

13010 

13630 

N POKE 



PQKE<Ffi+<40#YP>+XP>,CM 
FÜR VH*0 TO 20 -Füft XH=0 TO 23 
IF<PEEK<Ffl+<40*YH>+XH?fiNI}i5>«? 
<Ffl+<40#VH)+XH>j6:GOTü 13050 



THE 

THE 



13040 IFCFEEK<Ffl+<40*VH)+XH?flND15>»6 

W POKE <Ffl+<40*VH>+XH)i7 

1 3056 NEXTXH : HEXT VH = CM= < PEEK < FA+ < 40* VP ) + 

XP)flND15>:G0T0 11300 

13999 = 

14Ö00 REM *** X-SPIEGELUNG *** 

14001 = 

14010 

14Ö20 

14040 

14Ö50 

1407S 

14080 

14090 

14100 

14110 

11300 

14999 
15000 
15001 
15810 



2=0 = POKE <FA-K48*VP>+XP>,CM • 
FÜR VH«0 TO 20= FOR XH=0 TO 23 
W < 2 ) » < PEEK < Fft+ < 4ß*YH ) +XH > ANS 1 5 > 
Z=Z+1: NEXTXH: NEXTVH 
2*0 J FOR VH«0 TU 28 
FOR XH=23 TO STEP-i 
POKE<Ffl+C40*VH)+XHJ^WC2> 
2=2+1 = NEXTXH : NEXTVH 
CM*<PEEk<Ffl+<40*VP>+XP)fiNDlS) = GOTO 



REM *** Y-SPIEGELUNG *** 



15030 
15040 
15050 
1506Ö 
15070 
150S0 
15090 
151Ö0 
15110 

11300 

15999 

16000 
16001 
16010 

16020 

16Ö30 
16040 
16050 
16060 
16070 
16080 
1609Ö 
16100 
16110 

11300 
16999 

17000 

17Ö01 

17010 
1702Ö 
17030 

17Ö40 
17050 



2=0 : POKE 
FOR VH"0 
FOR XH*0 



<Ffi+<40*VP>+XP> 
TO 20 
TO 23 



CM 



W<2>*<PEEk:<Ffl+C40*VK5+XH)flND15) 

2=2+1= NEXTXH: NEXTVH 

2=Ö 

FOR VH-20 TO STEP-1 

FOR XH«ö TO 23 

POKE<Ffi+<40*VHHXH>..WCZ> 

2=2+1 : NEXTXH : NEXTVH 

CM«CPEEK<Ffl+<40*VP>+XP)flND15) = GOTO 



REM *** ROTIEREN *** 

2=0 : POKE <FA+<40*YP>+XP) , CM 

FOR VH=0 TO 20 

FOR XH=0 TO 20 

U < 2 > = < PEEK < FA+ i 40* VH ) +XH > AND 1 5 > 

2=2+1 = MEXTXH : NEXTVH 

2=0 

FÜR XH-20TO ö STEP-i 

FOR VH=0 TO 20 

PöKE<FA+<40*VH>+XHJjW<2> 

2=2+1: NEXTVH: NEXTXH 

CM= < PEEK < FFI+ < 40* VP > +XP ') fiND 1 5 > : GOTO 



REM *** DEFINIEREN *** 



2=0 : POKE <. FR+ < 40* VP > +XP ) 

FÜR VH-6 TO 20 

FOR XH«ß TO 23 STEP 8 

CU=Ö : Q-0 

FÜR T=7 TO STEP-1 



CM 



17060 IF<PEEK<Ffl+<40*YH>+XH+Q>flND15>' 

HEN CW=CW+2tT 

17Ö70 Q=Q+i:NEXTT 

POKE •49152+<BL*64>+Z.CW:Z*Z+1 
NEXTXH : NEXTVH = GOTO 1 1 300 



=6 T 



17036 
17090 

17999 : 

18000 REM *** EDITIEREN *** 

18001 •' 

18010 K1=49152:L1«64:VH=0:XH=0:FOR 2=0 T 

62 

10020 

18025 

GOTO 18050 



Q=0:FOR T=7 TO STEP-i 

IF PEEK<Kl+(BL*Li>+2>=0 THEN 



T=0 = 



2 -TT 



18030 IF <PEEK<i<i+<BL*Li>+Z>fl'ND2tT> 
THEN POKE <Ffi+<40*VH>+XH+Q),6 
18050 Q*ö+i=NEXTT 

XH=XH+8: IFXH=24THEN XH»0- VH=VH+1 

HEXT 2 

GOTO Ü300 



REM *** VIERFHRBIGE SPRITES *** 



18855 
18060 
18086 
19999 
20000 

20010 : 

20011 POKE 53280,1: POKE 53281, 1 : PRINT "33 
MULT I COLOR 8PR I TES " = POKE 53276 , 255 

20012 POKE 53248, 150 -P0KE53249, 200= POKE 
53250 , i 74 : POKE 5325 1 > 200 

20013 POKE 53252, 150: P0KE53253, 221: POKE 
53254,1 74 : POKE 53255 > 22 1 

20014 POKE 53269, 63 :ROKE53240,BL: POKE 53 
241 , BL+1 : PÖKE53242, EL+2 

20015 POKE 53243, BL+3: POKE 53244, EU POKE 
53256, 250 : P0KE53257, 205 

20016 VI =52304 :Fft=55376 

2001 7 CM=5 : XM=ß = XP=0 : VP=0 : VM=0 : CS=0 = CG« 1 



20018 CG«PEEK<532S1> :C1«PEEK<53285> :C3-P 
EEK<53286):C2=PEEK<! 

20019 FOR 1=0 TO 20: 

20020 PRINT"üa. . . , 
20030 NEXTI 

PRINT:PR1NT' 
PRINT"»" :PR II 
PRINTTAEa3)"i 



20034 

20035 

20040 

WAP" 

20050 PRINTTftB<I3>" 

LÜCK+4" 

2Ö060 PRINTTABUS)" 

LOCK-4" 

2Ö070 PRINTTflB<13>" 

ATA IN" 

2Ö080 PRINTTAB<13>" 

20090 PRlNTTftB(13>" 

20101 PRINTTflB<13>" 

20102 PRlNTTAE<i3>" 
20110 PRlNTTflBCi33" 
20120 PRINTTAECiSV 
20130 PRINTTHBU3? 1 ' 
20140 PRINT - 
20158 PRINTTAEC13)" 
20160 PRlNTTflB<i3V 
20170 PRINT"»" 



J2S7) 

PRINT 

ii • 
« ■ • ■ « , 

t ~ > MENUE"; 

:nt 



3F1 COLOR GROUND 

SF3 COLOR 1 

8F5 COLOR 2 

3F7 COLOR 3 

31-3 SETZE PUNKT" 

3*- CLEAR PUNKT n 

SX X-SPXEGELN" 

STV V-SPIEGELN" 

SC LOESCHEN" 

S= DEFINIEREN" 

3E EDI HEREN" 

SU-/- WflEHLEN" 
SH/V GROESSE" 



S 8 

T B 

R B 

D B 
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20 1 80 PR I NTTflB < 26 > " 3BLOCK : " 
2019Ö POKE Ffi,0 

20200 wiim u mmmmmmmmj& ii TffB<3t>" 
it 

2828 1 pr! nt " mmmmmmmmsm" taeodb 

L 

20203 PRINT"ä«ljaftraffl^^ 

20204 PRINT M 3«MÄ»flSl^^ 13 
>BL 

29205 pr i nt " •t^mmmmmmMmsm" im < 2 1 

26206 PRINT"»fl*iSMKB8M^^ 

)-BL+l 

2620? PR 1 NT " ^«M^^^ TRB < 

13>" " 

20208 PR 1 NT " aflHKÖSDöW^^ i 

130BL+2 

20209 pr 1 nt " ■mmmmmmmimmmm&" the < 
21 >" 

202 1 pr x ht " mmimmmmMmmmm" trb ( 

2DEL+3 

263Ö0 ÖET E$:IF E**"" THEN 20360 

20319 IF E$="+" flNB BL<4? THEN 2032S 
20315 GOTO 20330 

20320 BL*BL+ 1 : POKE53240 * BL = P0KE5324 i > EL+ 
1 = P0KE53242 , BL+2 • POKE 53243 > BL+3 

20321 POKE 53244, BL: GOTO 26200 
20330 IF £*-"-" flND BL>0 THEN 20340 
20335 GOTO 20350 

20340 BLaBL-1 = F0KE53248, BL : P0KE53241 , BL+ 
i : PÖKE53242 , BL+2 : POKE 53243 , BL+3 

20341 POKE 53244, EL= GOTO 20200 . 
20350 IF E*="T" flNB BL<44 THEN 26360 
20355 GOTO 20370 

2Ö360 BL=BL+4 : PÖKE53248 , BL : P0KE5324 i , BL+ 
1 : P0KE53242, BL+2 : POKE 53243, BL+3 
20361 POKE 53244, BL; GOTO 28200 
20370 IF E*-"R" flNB BL>3 THEN 20380 
2Ö375 GOTO 20350 

20380 BL*BL-4 = P0KE53248, BL : P0KE53241 , EL+ 
i = P0KE53242, BL+2 = POKE 53243, BL+3 

20381 POKE 53244., BL: GOTO 20200 

20390 IF E*="M n AHB XP<11 THEN XP=XP+l:G 

OTö 2i00ti 

20395 IF E*="i6" flNB XP>0 THEN XP=XP- IwSG 

TO21000 

20460 IF £*«"«" flNB VP<20 THEN VP-VP+l^G 

OTO 21000 

20405 IF E$= ,( n" flNB VP>8 THEN VP=VP-1 = GÖ 

TO 21000 

20410 IF E*»"i" THEN POKE <VI+<46*VM>+XM 

), 177: GOTO 20300 

2042Ö IF E**"2" THEN POKE <VI+<40*YM>+XM 

>, 178= GOTO 20300 

20438 IF £$="3" THEN POKE (VI+(4Q#VM>+XM 

')> 179: GOTO 20300 

26440 IF E**"*-" THEN POKE <VI + <4Q*VM>+XM 

), 174= GOTO 20300 

2045Ö IF E**"V" flNB. PEEK<53271K>8 THEN 

POKE 53271,0 =GOT0 20300 



20460 IF E*-"V" AHB PEEK< 53271)01 6 THEN 

POKE 53271, 16= GOTO 20300 
20470 IF E**«H" AND PEEK<53277X>0 THEN 
POKE 53277,0: GOTO 20300 
20480 IF E**"H" flNB PEEK < 53277 )<> 16 THEN 

POKE 53277, 16= GOTO 20300 
28498 IF E*="t" THEN 10130 
THEN 20080 
THEN CG-CG+1 



20500 IF £$="0" 

20510 IF E*-"*" 

EN CG=8 

20528 IF E*= M H" 

EN Ci«8 

28530 IF E*-"ll" 

EN C2«0 

£0540 IF E*«"ffl" 

EN C3=0 

28550 IF E*«"X" 



THEN C1«C1+1 
THEN C2-C2+1 
THEN C3-C3+1 
THEN 22Ö00 



IF CG>13 TH 
IF Cl>15 TH 
IF C2>15 TH 
IF C3>15 TH 



28568 IF E*="V" THEN 23808 



20578 IF E*?"s" 
20580 IF E*="E" 



THEN 24080 

THEN 25000 
20598 IF £*="S" THEN 26888 
20595 IF E**"I!" THEN 27080 

20997 POKE 53281, CG ■' POKE 53285 , C 1 ■ POKE 5 
3286, C3: POKE 53287,02= POKE 53288,02 

20998 POKE 53289,02: POKE 53290 , C2 : POKE 5 
329 1 , 02 

28999 GOTO20300 

21008 : 

21010 REM *** CURSOR ZEIGEN fe** 

21811 : 

21028 POKE <FR+<40*YM)+XM>,CN 

2 1 038 VMs VP : XM«XP = CM=PEEK i Ffl+ < 40* VM ) +XM > 



21040 
21850 
21999 
22060 
22001 
22028 
22030 
22048 
22858 
22860 
22878 
22888 
22098 
22188 
22110 
22999 
2388Ö 
23081 
23810 
23020 
23838 
2384Ö 
23858 
23068 
23878 
23088 
23898 
231S0 



POKE < Ffl+ ( 40* VP > +XP > , 
GOTO 20308 

REM *** X-SPIEGELUNG *** 

2=0: FOR VH=8 TO 28 
FOR XH=0 TO 11 
W<2>=PEEK<VI+<40*VH>+XH> 

2=Z+i:NEXTXH:NEXTVH 

2*=8 

FOR VH=0 TO 28 

FOR XH=Ü TO 8 STEF-1 

POKE<VI+C40*VH>+XH>,WCZ> 

2*2+ 1 : NEXTXH : HEXT VH 

öOTO 20300 

REN *** V-3PIEGELUNG *** 

FOR VH-8 TO 28 

FOR XH-0 TO 11 

W < 2 > =PEEK < V I + < 40* VH > +MH > 

2=2+ i: NEXTXH: HEXT VH 

2-0 

FOR YH-26 TO 8 STEP»! 

FOR XH-0 TO 11 

POKE<VI + -:40*VH>+XH>,W<:2> 

Z«2+i : NEXTXH = 'NEXTVH 
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231 10 GÜTÜ 20330 

23999 = 

24000 REM *** DEFINIEREN *** 

24001 : 
24010 2=0 

24020 FOR VH«6 TO 20 

2403Ö FOR XH=0 TO 11 STEP 4 

2404Ö CW™0:ß-0 

24850 FÜR T=6 TO STEP-2 

24655 Hi*PEEK<Vr+<40*VH>+XH+Q) 

24060 IF HKM74 THEN CW=CW+<Hl-i76>*2fT 

24070 Qäß+l;NEXTT 

248Ö0 POKE 49152+<BL*64HZ,CW: 2*2+1. 

24090 NEXTXH • NEXTVH = GOTÖ29300 

24999 • 

25000 REM *** EDITIEREN *** 

25001 = 

25010 K1=49152 : L1=64:VH=0:XH=0:FQR 2*0 T 

62 

25020 Q-0-FOR T=6 TQ STEP-2 

25025 IF PEEK<K1+CEL*L1)+ZJ»0 THEN T=0: 

GOTO 25050 

2502? Hl«<PEEK<Kl+<BL*Li>+Z>fiND<3*2fD> 

25030 IF HiOfl THEN POKE <VI+<40#VHHXH+ 

Q),(t:Hl/2H>+176) 

25050 Q-0+l:HEXTT 

25055 XH=KH+4:IPXH=12THEN XH=0:VH=YH+1 

25060 NEXT 2 

25080 GÜTÜ 2Ö30Ö 

25999 : 

2600Ö REM**** SPRITE AUSTAUSCHEN *** 

26001 : 

26020 PR t NT " mmmSM" TAB < 29 ) " KW AP = " 

26025 PRINT TAB C 29) "VON ".-INPUT "»jBl 

26030 PRINT TAB < 29 > "NACH" i = 1HPUT "";B2 

26070 FÜR 2=0 Tu 63 

26080 W < Z > »PEEK C 49 1 52+ < B i *64 HZ > 

26090 NEXT 2 

26095 FÜR 2*0 TU 63 

26096 H1=P£EK<49152+<B2*64>+Z> 
26Ö97 POKE 49152+<B1*64)+2,H1 
26098 NEXT 2 

26Ö99 FOR 2*8 TO 63 

26100 POKE 49152+<B2*64)+Z,U<2) 

26110 NEXT 2 

26 112 print" mtemmmr trb < 29 > " 

26113- PRINT TAB C 29)" 

26114 PRINT TftBC29>" 

26120 GOTO28300 

26999 = 

2700Ö REM **# DflTfl-E INGABE *** 

27901 : 

27010 2=0 

fl IN:" 

27040 pr 1 nt " mmmmimmmm" trb < 24 > " 

" :IF 2<@ THEN 2=0 
27841 IF Z>62 THEN 2=62 

27042 pr int" 'mmmmmmwm u trb < 24 > z " we 

RT ?"; PEEK<49152 +<BL#S4)+Z> 

27043 pr i nt- " mmmmmmmm« im c 24 ) z " we 
RT ".;■■• 



27050 INPUT "";H* 

27055 IF H**"-"THEN Z=2-1:GÜTÖ 27020 

27056 IF H** ,I *"THEN 2=62: GOTO 27100 
27860 Hl«VflL<H*>:lF HK8 THEN H1=0 
27097 POKE 49i52+<BL*64H2,Hl 

27 1 60 pr int" wmmmmmmmrim c 24 > " 
11 

27H0 print" •mmmm.M&mmmv 1 f ab t 24 > " 
ti 

27120 2=2+1 :1F Z>fo2 THEN 20300 

27130 GOTO 27020 

27999 = 

280Ö0 REH **# 2EICHENSATZ AENBERN *** 

28010 : 

28011 POKE 53280,1= POKE 53281, 1 = PRINT "33 
2EICHENSRTZ RENBERN " i CHR$ (. 8 > i 

28012 PRINTTflBC30) M »t MENUE"; 

280 1 4 V 1 =52305 = F A=553?7 

2801 5 CM=7 : XM=0 : XP=0 = VP=0 ; VM=0 : CS=0 = CG=1 

28016 Tfla0:PRINTCHR*C142) 

28018 FORI =0 TU 15 

28019 PRINT 

28020 PRINT" iild 

5: 

28030 NEXTI 

28040 PRINT :PRINTTABU9> 1*15; 

28050 : 

281Ö0 REM *** 2EICHENSRTZ* AN2EIGEN *#* 

28101 : 

28110 2=0:FORU=0TO16:P=U*40 

28120 F0R1=5232S+P TO 52342+p:P0KEI,Z'2= 

2+1: POKE 1+3072, 14: NEXT i,u 

28206 PRINT"äES» ,, TABa7;>"2 n 

282Ö5 PRINT' , MS0SDaWW»3"TflB<l?> ,, 4 M 

283Ö0 PRINT"MK«MM1« M 

28310 PRINT" 1 SET2E PUNKT" 

28320 PRINT" +■ LÜESCHE PUNKT" 



f*'jl#i 



28330 PRINT" C CLEAR 


T 


ZEICH 


ENSRT2 G/K" 






28340 PRINT" X X-SPI EGELN 


E 


EBITI 


EREM" 






28350 PRINT" V V-SPI EGELN 


BS 


BEFIN 


IEREN" 






28360 PRINT" R ROTIEREN " 






28370 PRINT" I INVERTIEREN" J 







28380 POKE FR,0 

284Ö8 GET E*:IF E$=»" THEN 28400 

28410 IF E*s"M"ftNB XP<15 THEN XP=XP+1=GÜ 

TO290Ö0 

2841-5 IF E*="II H ANr( XP>0 THEN XP=XP-l:GÜ 

TO2900Ö 

28420 IF E$="E"ANIl VP<15 THEN VP=VP+l:GO 

TÜ29000 

28425 IF E'4*".TflND VP>0 THEN VP=VP-l:GO 

TO29000 

28430 IF E£="i". THEN PÜKE <FA+<40*YM)+XM 

y, 6 : Ch1*6 : GÜTO2840Ö 

28435 IF £$="+■" THEN POKE <Ffi+<4ö*YM>+XM 

>>?■- CM*7 = QÖTO28400 

28440 IF E*="X" THEN GÜSUB 30080 =GOT03 10 

00 
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28443 
88 

28450 
00 

28455 

öS 

28460 

28465 

2847Ö 

23475 

00 

28480 

28995 

2308Ö 

29010 

29028 



IF E**"V M THEN GÜSÜB 30000 : GGTQ326 

IF E*="R" THEN GOSÜE 30008 : GÜTG336 

IF E**"I" THEN GGSUB 38906 • GOTG340 

IF E$="E" THEN GOSUB 30006 = GÜT0356 

IF E*="C" THEN 286Ö0 
IF E*="T" THEN 36000 
IF E#*"*" THEN GÖSUB 3Ö606 = G0T0376 

IF E$="f" THEN 1Ö130 

GOTO 28400 

REM *** CURSOR ZEIGEN *** 

POKE C FA+ < 46* VM > +XM ') > CM 

VM=VP = XM-XP = CM==PEEK<FR+<40*VM>+XM> 



29030 POKE < FA+ C 40*VP > +XP ) * 9 

29Ö4Ö GÜTD 23400 

30006 REM UNTERPROGRAMM ABFRAGE 

30ß 10 pr i nt " 'mmmmmmmmmmmm' tr 

EC 22) "FENSTER HR. "J 
3Ö020 6ET E$:iF E*«""THEN 36020 
3Ö025 IF E*0"i" RHU ESO" 2» AND E*O u 3" 
RHU E*0"4" RND E*0"fl" THEN 39026 

30038 pr i nt " -mmmmmmmmmmmmm n ta 

B<22>" ".; 

30031 POKE CFR+<40#VP>+XP>iCM 

30Q32 IF ES^'PTHEN Fi-Ffl:Ll*7 
38Ö33 IF E*s"2"THEN Fl-Ffi+8:L1=7 
30634 IF E*« 11 3" THEN Fl=FA+<8*40) :L1»7 
30035 IF E*» ,, 4"THEN Fl*Ffl+S+C8#40> ■ LI"? 
3Ö83S IF ES« "fi" THEN F1~FR:L1»15 
30640 RETURN 
38999 : 

31Q08 REn *** X-5PIEOELUNO *** 
31601 : 
31610 2=0 

3 102Ö FOR VH-8 Tu LI 
31036 FOR XH*0 TO LI 

3 1 04ö U i Z > ~ C PEEK < F 1 + ( 40*VH ) +XH > ÄND 1 5 ) 
3 i 050 2*2+ 1 : NEXTXH = NEXTVH 
3106% 2=0 

31Ö70 FOR VH»0 TO Li 
31080 FOR XH-Ll TO STEP-1 
3 1 090 POKE C F 1 + •:: 49* VH > + XH > .« U < Z ) 
3110Ö 2=2+1: NEXTXH- HEX TVH 
31 1 10 CM=<PEEk:<FA+t40*VP>+XP;RNDl5> : GOTO 
28480 

31999 • 

32000 REM #*# V-SPIEGELUNG *** 

32001 : 
32010 2-0 

32020 FOR VH-6 TO Li 
32030 FOR XH-0 TO LI 

32040 W<Z>a<PEEK<Fl + C40*VH)+XH)flND15) ■ 

32050 2*2+1 : NEXTXH = NEXTVH 

32060 2=0 

32070 FOR VH*L1 TO STEP-1 

32080 FOR XH-0 TO Li 

32090 POKE (. F 1 + < 40#V H > +XH > .- W < Z ? 



32100 2*2+1 = NEXTXH: NEXTVH 

321 10 CM=<PEEK<Ffl+<40#VP)+XP>flND15> = GOTO 

28400 
32999 = 

33Ö00 REM ##* -ROTIEREN *** 
33001 : 
33010 2-6 

33820 FOR VH«ö TO LI 
33630 FOR XH«0 TO LI 

33Ö40 14 < Z > * < PEEK < F 1 + < 48* VH 5 +XH > AHB 1 5 > . 
33650 2*2+1 = NEXTXH : NEXTVH 
33060 2~Ö 

33070 FOR XH«L1T0 6 STEP-1 
33080 FOR VH»0 TO Li 
33690 POKE < F 1 + < 48* VH > +XH > , W < 2 > 
33100 2=2+1: NEXTVH: NEXTXH 
33110 CM*<PEEK<Ffl+<40*VP)+XP>FlND15) : GOTO 

28400 

33999 : 

34000 REM *** INVERTIEREN *** 

34001 : 

34910 FOR VH=0 TO LI 

34620 FOR XH-0 TO LI 

34030 IF<PEEK<Fi+(40*VH>+XH)flND15)»7 THE 

N POKE <F1+<40*VH>+XH>,6:GÖTO 34050 

34040 IF(PEEK<Fl+<40#VH)+XH>flNDi5>*6 THE 

N POKE <F1+<40#VH>+XH?,7 

34050 NEXTXH = NEXTVH: CM*CPEEK<Ffl+<40*VP>+ 

XP>flND13)':G0T0 28400 

34999 : 

35ÖÖ0 REM *** EDITIEREN *** 

3560 1 pr i ht " -mmmmmmM$tmmmmr t ab 

< 2 IV 1 «ZEICHEN HR. ".: 

35602 INPUT " (, .;2E 

35004 pmw\"-mmmmmmmmmmmm n im 
<2i>" " ; 

35010 Kl»57344+Tfl:LI»8:VH=0:XH»0:FOR 2=0 

TO 7 
35020 Q«0:FOR T=7 TO STEP-1 
35025 IF USR(KI+<ZE*L1)+Z>"0 THEN T*0.'O 
OTO 35050 

35030 IF £USRCKl+<ZE*H)+Z>RND2tT)-2tT T 
HEN POKE <F1+X40*VH>+XH+Q>,6 
35650 QaQ+l:NEXTT 

35055 XH=XH+8 : IFXH*S THEN XH«0:VH«VH+1 
35660 NEXT Z 
135080 GOTO 28408 
35999 : 

36060 REM ** ZEICHENSATZ UMSCHALTEN ** 
36001 : 

36016 IF TRs0 THEN Tfl«2048:PRINTCHR*a4) 
j : GOTO 28400 

36020 IF Tfi=204S THEN TA«6= PR I NTCHR* <1 42 
>;=GOTO2S400 ■ 
36999 : 
37Ö00 REM *** DEFINIEREN *** 

3700 1 pr i nt " mmmmmmmmmimm n t ab 

C 21)" BEEICHEN NR. "".; 
37002 INPUT ,,H ;2E 

37004 pr i nt " mmmmmmmmmmmmM 1 t ab 

•;2i>" "j 

370 1 Z»0 ; POKE C F 1 +' ( 46*VP ') +XP ) * CM 
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3762Ö FOR VH=8 TU 7 

37038 FOR XH~8 TO 7 STEP 8 

37640 CW«8:GN0 

37050 FOR T*7 TO STEP-i 

37660 I F < PEEK C F i + < 40#¥H > +XH+Ö > AND 1 5 > =6 T 

HEN CW*CU+2+T 

3707Ö QaQ+i:NEXTT 

37880 POKE 57344+TA+CZE*8>+Z,CW:Z«Z+l 

37090 NEXTXH : NEXTVH : G0T028488 

38Q00 REM ** SR VE SPRITES+ZEICHSATZ ** 

ase i ö pr i nt " 'mmm^m^mmmmm* trb < 

10) "H FILENAME "; 
38020 INPUT M,, ;FI* 

38038 pr i nt " 'mmmmmmmmmmmM" trb < 

10> 1! WARTE 4 MINUTEN 

38040 F2$= ,I 8:"+FI$'+",S..U" : OPEN i,S,4,F2* 



38050 
3806Ö 
3807Ö 
3808Ö 
38090 
38100 
39009 
39010 
10)"« 
39020 
39030 

10)" 

39040 
39050 

3906Ö 
39070 
39Ö30 
39690 
39100 
39999 
4ÖÖ00 

40081 
4Ö6 10 



FÜR1=49152 TO 52224 

E=PEEK<I>:pRINT#l,£ 

NEXTI 

FOR 1*57344 TO 61440 

E*U8R<I>:pRINT#I,E 

HEXT I : CLÜSE 1 = GOTO 101 30 

REM ** LOAD SPRITES+ZEICHSflTZ ** 

pr i nt " -mmmmmmmmmmMm 11 trb < 

FILENAME ".: 

INPUT "MFI* 

pr i ht » 'mmmmmmjsmmsmmm 1 trb < 

WRRTE 4 MINUTEN 
F2**FI*+" / 8, R" : OPEN i , 8, 4, F2$ 
FOR 1-49 152 TO 52224 
INPUT#1,E:P0KE I,E 
NEXTI 

FÜR 1=57344 TO 61440 
INPUT#1,£:P0KE I,£ 
NEXTI : CLÖSE1 : GOTO 10130 

REM *** PROGRAMM ERZEUGEN *** 

PRINT ,, 3»#* PROGRAMM GENERATOR *** 



(VON, BIS) »; =INPU 
WAIT 5 MIN... " :p 



40020 PRIMASPRITES: 

T ,M, ;R1,E1 

40030 PRINTCH 

OKE 648,4 :PRINT 

40040 fl=49152+<fll*64):REM- ANFRNGSADR. 

40042 E=49215+CE1*64):REM ENDADRESSE 

4Ö044 -ZN*550 10: REM ZEILENMR. 

40850 IF R1>E1 THEN 40121 

40060 PR INT "355809 REM *** SPRITES H fll H B 

I8"E1" *##" 

40070 PRINT ,, ZN* ,l ZN ,, :E= ,, E |, :A*"fl l, :60TO 400 

30 " : GOTO 40800 

4008Ö PRINT"3";ZN n FORI= l »fl"TO"E":REAÜ DA 

=P0KE I, DA = NEXTI" :PRINT"ZH«"ZH" :E-"E" = fl= 

"AJ 

40090 PRJNT" =GQTO 40100" : GOTO 40800 

40100 ZN=ZN+1 

40115 PRINT"3";:IF R>E THEN 40121 

40116 PR I NTZN " DATA " ; = PORO= 1 TO 1 7 : B=PEE 
KCA) : D*«STR*CD) ■ 3$«" " 



40 1 i 7 FÜR I = 1 TO 4 : E*-M I Ii$ CD* , 1 , 1 ) : I F E*< 

•> u H THEN S*=S*+E* 

40118 NEXTI :PRINT S*" , " i ■ A=fi+1 : IF fl>E TH 

EN 0*17 

40 1.1 9 NEXTO : PR I NT }i SS " = PR 1 NT " fl« " R " : ZN= " ZN 

+ 1 i! • E« " £ n ■ GOTO 40 1 i 5 " = GOTO 408Ö8 

40121 REM *** ZEICHEN-GENERATOR *** 

40125 F=0=FOR I«0 TO 4095= IF USRC 53248+1 
) OUSR < 57344+ 1 ) THEN I =4096 : F* 1 

40126 NEXTI =IF F=0 THEN: RR INT "IT; JGOTO40 
245 

4Ö138 ZN=ZH+l:PRINT ,, r3 ,, JZN H REM *** ZEICH 

ENSATZ AENDERN ***" 

4014Ö PRINT"ZH* I, ZN+1":G0T0 40150": GOTO 4 

080Ö 

40150 ZE~0 

40160 RB»ZE*8:IF ZE>511 THEN 40210 

40170 F»0:FÖRI *RD TO RD+7:IF USRC 53248+ 

I ) OUSR C 57344+1) THEN F*l 

40180 NEXTI :IF F=0 THEN ZE«ZE+1 :.GOTO 401 

40190 PRINT ,, n"ZN"DflTfi "ZE"," ; :FORO=0 TO 
7 : D=USRC AD+57344) : D$=STR*(D> : S$=" " 
48191 F0R1*1 TO 4:E$-MID$CD*,I,1):IF E*< 
>" n THEN S*=S*+E* 

40192 NEXTI :PRINT S*" * " ; :RB=AB+1 

40 1 93 NEXTO : PR I NT " 88 " : PR I NT : PR I NT " ZN« " ZN 
+1 " : ZE~"ZE" : GOTO 40200" : GOTO 48800 
40280 ZE=ZE+l:GOTO 40160 . 

40210 2N»2N+l:PRINT"3 ,, ZN"DATfl -l H :pRINT" 

ZN="ZN+10" : GOTO 40228" : GOTO 40800 

40220 PRIN'PTZN" READ ZE":ZN=ZN+1 

40230 PRINTZN" IF ZEO-i THEN FORI=0TO7= 

READ DR:SVS3277I, C 53248+ <ZE*8)+I), DR =NEX 

T" 

40240 ZN-ZN+l: PRINTZN" IF ZEÖ-1 THEN "ZN 

40245 PRINTZN+10" RETURN" 

40250 PRINT'GOTO 40260": GOTO 40880 

48260 REM *** DESIGNER LOESCHEN *** 

40270 FORI-10000 TO 60000. 

40280 IF PEEKCD*93 AND PEEKCI+3)=93 THE 

H POKE I+4,0:U»I: 1=60000 

40290 NEXT 

40300 POKE 648, 204 = U*U+5:H*I NT < U/256 >:L* 

U»CH*256) 

40310 PRINT'TFOKE 43,."L":P0KE 44, "H 

40320 PRIHT"MW»W 1 POKE 56, 128: REM BASIC 

RB $8008" 
40330 PRIHT"2 GÜSUB 50000" 
40346 PR INT "LI ST" 
40350 GOTO 40800 

408Ö0 POKE 631,19:F0RI«632 TO 640: POKE 1 
,13: NEXT : POKE 1 98 , 9 : EHD 

40995 : 

40996 : 

40997 REM 3 333 
40999 END 

508Ö0 REM VIDEOCONTROLLER UMSTELLEN 
50001 REM SPRITES AB 49152 « *C0Ö0 
50Ö02 REM SPRITESPOINTER 53240 = *CFF8 



Computronic 



21 



Adapter für V 24- 
Schnittstellen 

Unter der Bezeichnung PERDREH- 1 
und PERDREH-2 sind beim Ing.-Büro 
Auffarth zwei Adapterstecker für 
V 24-Schnittstellen (25polige Sub- 




•">°* 



min, -D-Stecker) erhältlich. Der Adap- 
ter PERDREH- 1 vertauscht intern die 
Anschlüsse 2 und 3, läßt die übrigen 
23 Anschlüsse direkt durchgehen. 
PERDREH-2 dreht zusätzlich noch die 
Anschlüsse 4 und 5. Beide Adapter 
können einfach zwischen Gerät und 
Kabel gesteckt werden. Damit ist es 
möglich, ohne Umlötarbeiten, mit der 
gleichen Kabel Verdrahtung, Periphe- 
riegeräte mit unterschiedlicher Stek- 
kerbelegung zu betreiben. Gesehen bei: 
Ing.-Büro Auffarth., Rhalandstr. 54 B, 
2730 Zeven. 



V 24-SchnittsteIIen- 
umschalter 




Unter der Bezeichnung DUOPER hat 
das Ing.-Büro Auffarth einen Um- 
schalter für V 24-Schnittstellen neu in 
sein Produktionsprogramm aufgenom- 
men. Das Gerät hat drei 25pol. D-Stek- 
ker,' an die der Computer und zwei 
Peripheriegeräte angeschlossen wer- 
den. Mit dem eingebauten Schalter 
wird zwischen den Peripheriegeräten 
umgeschaltet. Es entfällt damit das lä- 
stige Umstecken der Peripheriegeräte, 
wenn abwechselnd- eine Computer- 
schnittstelle benutzt werden muß. Ge- 
sehen bei: Ing.-Büro Auffarth, Rhaland- 
str. 54 B, 2730 Zeven. 



52224 - *CC0Ö 

53248 = $mm 



58083 REM VIBEOSG&EEN RB 

5Ö004 REH ZEICHEHSfiTZ AB 

5Ö005 KEN 

58100 FÜRI= 32768 TO 3230© :RERD BFPPÖKE 

I,Bfl:NEXTi:SVS 32768 

5499Ö REM *** MASCHINENPROGRAMM *** 

55080 DATR 76,6,128,76,73,128,120,173,0, 

221,41,252,141,0,221,169,52 

55001 DATA 141,24,208,169,284,141,136,2, 

169, 97, 141 , 17,3, 169, 128, 141,18 

55Ö02 DATA 3, 160,0, 132,3, 169,208.. 133,4, 1 

62,16, 169,51,133,1, 177,3 

55603 DATA 72,169,48,133,1,184,145,3,200 

,208,239,230,4,202,208,234,169 

55004 DATA 55,133,1,88,96,120,165,1,72,3 
2,253, 174,32,235, 183, 169,48 

55005 DATA 133,1,160,0,138,145,20,104,13 
3, 1,88,96,165,20,72,165,21 

55006 DATA 72,32,247,183,165,1,72,169,52 
, 120, 133, 1, 160,0, 177,20, 168 

55087 DATA 164,133,1,83,194,133,21,104,1 
33,20/76,162,179,255 



Homeword - 

die persönliche Textverarbeitung 



für VC-64 

Goldmedaillen für die USA - das gilt 
nicht nur für die vergangenen Olympi- 
schen Spiele, sondern auch für gute 
Software, die immer noch zuerst aus 
Übersee kommt. Goldmedaillengewin- 
ner ist auch das Textverarbeitungs- 
programm HOMEWORD von Sierra 
Online für Commodore 64 und App- 
le II r nach einem Vergleich des Soft- 
ware Buyer's Guide der „Word Pro- 
cessors for the Home". 

HOMEWORD ist der Bestseller der 
Textverarbeitungsprogramme für den 
Commodore 64 in den USA und 
heimst vor allem hohes Lob für seine 
Benutzerfreundlichkeit, die einfache 
und übersichtliche Bedienung des Pro- 
gramms: „HOMEWORD is easier to 
use than a game" so „Creative Compu- 
ting". 

HOMEWORD arbeitet ganz modern 
mit Bildsymbolen bei den einzelnen 
Menüs und führt so auch den Anfän- 
ger einfach und sicher durchs Pro- 
gramm. Eines der größten Komplimen- 
te lautet denn auch: HOMEWORD 
verbannt die Furcht vor dem Compu- 
ter (Creative Computing). 
So auch „Classroom Computer Lear- 
ning": „HOMEWORD bedeutet einen 
innovativen Durchbruch von Textver- 
arbeitung in der Schule und zu Hause. 
Es ist von außerordentlichem Wert für 



alle, die ein anspruchsvolles aber 
leicht zu erlernendes Programm wol- 
len." 

HOMEWORD bietet trotz seiner ein- 
fachen Bedienung natürlich alles, was 
der Benutzer von einer guten, moder- 
nen Textverarbeitung erwartet: Kom- 
fortable Korrektur- und Suchvorgän- 
ge, professionelle Umbruch- und For- 
matierungsmöglichkeiten, Seiten- 
numerierung - so daß lt. der Zeit- 
schrift „Personal Software" „dieser 
Wordprocessor dem Anfänger Ein- 
fachheit bietet ohne den Fachmann zu 
frustrieren". 

Diese Eigenschaften mögen auch IBM 
bewogen haben, HOMEWORD als of- 
fiziellen Wordprocessor für den PC 
junior auszuwählen. 
Bisher liegen „nur" begeisterte Stim- 
men der amerikanischen Fachpresse 
vor, aber Ahnliches wird wohl auch 
bald bei uns zu hören sein: Der Lan- 
gens che idt- Verlag hat die Lizenz für 
die deutschsprachige Version dieses 
Erfolgsprogramms erworben und wird 
die Ausgabe für den deutschen Markt 
Anfang des Jahres 1 985 anbieten. 
Da auch bei uns der Trend für Schul- 
und Homecomputer zu höchstmögli- 
cher Benutzerfreundlichkeit geht, 
dürfte auch hier mit einem Sieges zug 
des „problemlosen" HOMEWOR0 zu 
rechnen sein. 
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High Nun 



Ein superschnelles Spiel für den VC-64. 



REM CÖP.VRIÖHT J.BfiflS S.9.19S4 

1 PDKE5S, 144 ?CLß? PRINTE" 

2 DffTrU20j I69i5i, 133, 1, 169,0; 133,95, 133, 
30, 133, ßö, 169,208, 133,96, 169, 24ß- 

3 BflTFil33,S3, 169,224, 133,91,32, 191, 163,1 
69,55,133,1,88,96 

4 F0Rl>S32TÜS32+33 

5 REflLfl:PaKEIifi?NEXT 

S SYS832:PDKEÖ50,160:S¥S832 

7 P0KE532?2 , 8 1 P0KE56576 , PEEK i 56576 > RND25 
2:PDKE648, 192 

8 PßINTCHR*C8> 

i© PÖKE53280, 1 :PÜKE53281, 1 ;PRINTCHR*<14) 

26 PÜKE53248+21,0:PRINT l, arLEftSE WfllT Fl 
MOMENT " : GOSUB55000 • GÜ3UB5550ß = DB-ß 

30 PRIHr'ä" I PRINTCHR$C 142) : POKE53280, : P 
OKE532S1,0:L1»Ö^L2»0 

31 PRINT M 3»I(OIfi82ÄÖÖ , 'SPCC6> ,, a>HSTRUCTIDNS 
»:PRINTTftB(6> ,, <0>PTIÜHS ,, :PRINTTflB(8)"Ü 

fö" 

32 PRINTTFIB(6> ,, C0>flriE M 

33 BETQQ$:IFÜÖ$«"G"THEN40 

34 IFQß** u l"THEN50Ö0 .. 

35 IFQß*="O"THEN6000 
37 G0T033 
40 PRIHT" 
50 PRINT" 

60 PRINT" 

I V-S" 

70 PRINT" 

I I" 

80 PRINT" 

I W 

90 PRINT" 

100 81*54272 :Si;*SI ; 82*54279 = 33*54286 : FL* 
54293 : FH*54294 : RS*54295 : PL»54296 

1 1 POKES 1+4,0^ PQKE82+4 , = POKES3+4 , 

111 .fi*0:Dal:3*13:R*10:H=500 



I *-*■ 



r^~~ , i 



r- J I r^ I r\ i I r, I I I 



i I 



S I 



L— J 



w l i II l I I 



112 PÜKE81+5,l£*fi+B 

113 PÜKES2+5, 16*fl+B 

114 FDKES3+5; 16*fi+B 



P0KESl+6i 16*S+K 
PDKES2+6, 16*S+R 
P0KES3+6,16*S+R 



115POKERS,0:PÖKEPL,15 

116 PÜKES1,37:PDKES1+1,15 

1 17 P0KES2, 154 : PÖKES2+1 , 21 

1 18 PDKES3, 177 : P0KES3+1 , 25 

i i 9 PDKES 1 +4 , 33 = FÜR I =0TÜ400 = NEXT : P0KE82+ 

4 , 33 : FÜR I *0TO400 ■ HEXT • P0KES3t4 , 33 

1 20 FÜR I *0TDH = HEXT ; POKES 1 +4 , 32 : P0KES2+4 , 

32:PÜKES3+4,32 

130 PÜKEFH, 4 : PÜKEFL, 226 : POKEW, 33+1 = FORI* 

1TO20Q0:NEXT:POKEW,0 

135 PRINT»MWSPC<20> M «PRESENT8: " =FORI*l 

TÜ3000 = NEXT-PRINT , ' fc T . 

1 40 FOR 1 «0TO 1 5 : POKEV+ 1 , 8 '• NEXT : PÜKEV+2 1 , 63 



Das Programm 
ist vollständig 
in Maschinen- 
sprache geschrie- 
ben. Mit 255 
verschiedenen 
Geschwindigkeits- 
stufen!!! 

Zwei Cowboys stehen sich auf ei- 
ner vielbefahrenen Postkutschen- 
straße gegenüber. Da jeder von ih- 
nen zuerst auf die andere Seite will 
und keiner nachgibt, kommt es 
zum Duell. 










Jede Spielfigur hat einen Revolver mit 
sechs Schuld Munition. Ist der Revol- 
ver leergeschossen, dauert es eine ge- 
wisse Zeit, bis er wieder geladen ist. 
Ist eine Spielfigur dreimal getroffen 
worden, ist sein Gegenüber der Sieger 
und darf die Straße überqueren. 
High Noon ist ein sehr schnelles Spiel, 
da es vollständig in Maschinenspra- 
che geschrieben wurde. Nur der Vor- 
spann und.die Auswertung sind in Ba- 
sic geschrieben. Die Spiel- Und Schuß- 
geschwindigkeit können frei gewählt 
werden. Zu beachten ist, daß ein 
Schuß mit hoher Geschwindigkeit 
auch einen Kaktus durchschlägt, der 
ansonsten Schutz gewährt. Die höch- 
ste, erreichbare Spielgeschwindigkeit 
ist >255I1!<, die niedrigste ist >0<. 
Zur Grafik ist zu sagen, daß sie durch 
neue Grafikzeichen, eine neue Schrift 
und Multicolor-Sprites sehr schön ist. 
Das Spiel ist für zwei Personen ge- 
dacht und wird mit Joystick ge&ttuert. 
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150 PDKE53288,7:p0KE5328i,7:PRINT"n SHO 

DT8"TflB<3ö> ,, 8HDDTS" 

160 PRINT"» äKKKKKK-"TflBC30) ,1 öKKJCKKKl M 

170 M«"dräiiBMii:rrsraE)aFr •m-"mm$m\ 
stmii nur 1 j k$* " ■ at'inNmDmpnKiäiRi" 
i?s kw*-" ns rii m m *ii " 

180 PRINT* , M«rTflB<9>fi*; TflB<29>fl* 
190 PRINT"M".TflBa0>B*;TflB<30>B* 

200 PRINT"Mr.TflBa3>B*;TfiB<27>B* 

2 1 POKEV , 25 : POKE V+ i , 229 : FOKE V+ 1 6 , 34 : 1 FD 

DO0THENGDTÜ340 

22ß FÜRI«229TÜÖ0STEP-1 : IFI/2=IHTa^2>THE 
H240 

230 PÖKE50 1 68 , 1 6 : POKE V+ 1 , I : GOTO2S0 

240 PÜK£50i£S,i7:POKEV+l,I 

250 SYS3fi8fi4!FORO-iTO30:NEXTDJNEXTI 

260 PGKE50168,18:PRINT"MfiÖ^":FÜRI«iTÜ9:S 

VS36903 

270 PßINTTflB<i5+I>j W(l>; :FORO=1TÜ200:NE 

XTD:MEXTI 

280 FÜR1*S0TÜÜ2: IF1/2öINT<1V2)THEN300 

298 POKE50168,16:PüKEV+l,I:GüTO310 

300 POKES0168,17:PDKEV+1,I 

3 1 S VS368S4 = FURO* 1 TÖ50 : NEXTÜ : HEXT I 

320 PDKE50iS8il8:pRINT ,, ]SDäW":FÜRI«lTÜ8:SV 
S36903 

330 PHIMTTflB<iS+I>;fl*a+9>J :FORü«iTü200: 

NEXTQ:NEXTI 

340 PÜKEV+21 , £3 ■ POKEV+2, 64 ■ PÜKEV+16, 34 ; P 

QKEV+3, 229 ; PÜKEV+30, ö : PÜKEV+31 , 

350 PÜKEV+4, ISS : POKEV+5, 149 : PÖKEV+6, 155 : 
PGKEV+7, 149+42 

351 PÜK£40953,0:POKE37536,7fe 

355 POKE40959, 6 : POKE4095S, 6 : PGKE4S957, 24 

8 : PÜKE40956, 240 : PÜKE40955 , Ö = PÜKE4S954, 

357 PRINT»MaWfl":PftINTTflB!Ci6> 1 » 

. ,, äPRINT M,l TflB<l£>» 

360 PÜKE56322 , 224 : SVS36944 = P0KE56322 * 255 

370 OD» 18 

380 P0KE5S322 , 255 : FÜR I »STD 1 1 : POKE V+ 1 , : N 

EXT 

390 T«PEEK<40953> : IFT*1THEN:L1*L1+1 : GOTO 

410 

400 L2*L2+i 

410 PRINTE" : IFL1O0THENFORI-1TOL1 SPRINT 
TfiB(2>"MaaH"K*;NEXT 

415 PRINT"»' = IFL2O0THENFORI-iTOL2:PRINT 
TfiB<34> H ÄW«K*:NEXT 

41 6 POKES 1 +4.0: F0KES2+4 , = P0KE33+4 , 

417 fi*0-B*l:S*i3:R»i0:H*500 

4 1 8 PDKES 1+5,1 6*A+D • POKES i +6 , 1 6#S+R 

419 PÖKE82+5, 16*ß+D:PQKES2+6, I6*S+R 

420 PÜKES3+5, iß*A+D : PDKES3+6, 16*S+R 

42 1 POKERS , = POKEPL , 1 5 

422 PDKESl,37:pÜKESi+i,i5 

423 PÜKES2,154:P0KES2+i,2i 

424 PQKES3 , 1 77 ? P0KES3+ 1 , 25 

425 POKES 1 14 , 1 7 i FÜR I «=070400 : NEXT : P0KES2+ 
4.17 = FORI «0TD400 : NEXT : PÜKE83+4, 17 

426 FÜRI-0TDH : NEXT : P0KE81+4, 16 : P0KES2+4, 
i£:PÜKES3+4,16 

429 IFH-3THENW*2 ? GÖSUE500 : GOTO450 

430 1FL2«3THENW~1 : QGSUB7B0 : QOTO450 

440 FÖRI«lTO2080:NEXT;PRINT"ia" :FQRI*1T03 



iPfiINTTflBC2> ,, lMHIl l, KW*?NEXT 

44 1 PR I NT » am 6KKKKKK " TAB i 30 ) » SJKKKKKKH" 

442 PRINT"a"iFÖRl!KlT03:PRINTTfiBC34)"Mfi«ÖÖ 
«KW«: NEXT 

445 POKEV+l,90;ßGTO340 

450 PRINT"!*" ;P0KEU+21jB 

460 PRINT , 'JBfllE:OWEOV ,, W»IST DER SIEGER 11 - PR 

INT ,, ÄÄD8ÖÖJÖPJRGEN SIE NOCH EIN DUELL ?" 

470 G£TD*: IFQ$*"J M THEHLisi0;L2«0:GOTO38 

480 IF Q**"N"THENPRINT»']i»WLüESCHEN SIE D 

RS SPIEL MIT:"iPRINT ,1 S¥S 64738" :PR INT" 

"=END 

490 GOTO470 

500 POKEV+2 1, 2 :p«PEEK< V+2* 

510 FDRI*PTD0STEP-1 •FÖKEXV+2), 1 :8VS368£4 

i IFI/2«INT<I/2)THENPOKE50169; iß:GOTÜ530 

520 PÜKE50169, 17 

530 NEXT = POKE V+ 16,0 

540 FORI-255TÖ0STEP-1 :P0KE<V+2>, I : IFI/2* 

.INT<I<>2>THENPOKE58169,16:GÜTQ360 

550 PGKE50i£9,17 

560 SVS36864 i NEXT ; PÜKE V+2 1,0: RETURN 

700 P0KEV+2I,liP«PEEKCV> 

710 FQRI*PT0255;PÜKE<V>, I : IFl/2«INT<I/2> 

THENPÜKE50168, 16 : GOTQ730 

720 PGKE50168,17 

730 S VS36S64 : NEXT : PÜKEV+ 16,1 

740 FöRl*0TÜ64:PÜKEe:v>,I = IFI/2*INTCI/2)T 

HENPDKE50168, 16 : GÜTÜ760 

750 POKE50168, 17 

?S% SVS36S64 : NEXT : POKE V+2 1 , : RETURN 

4997 : 

4998 REM ANLEITUNG 

4999 = 

5080 PRINT M 3H ,, SPC(in"HIGH NOON M £ 

J.BflflS" 

5Ö1Ö PR INT" »MAN EINER STARK BEFAHRENEN P 

OSTKUTSCHEN-" 

5020 PRINT ,, DURCHGflNGSSTRRS8E TREFFEN SIC 
H ZWEI" 

5838 PRINT"COfclBOVS. JEDER COWBOV WILL DIE 

C;TPCiC;CC« 

5Ö40 PRINT"ZUERST UEBERQUEREN.ES KOMMT 2 

UM DUELL.-." 

Ö05Ö PRINT H MJEDER SPIELER STEUERT EINEN 

COWBOV." 

5060 PRINT M JEBER COWBOV HAT DREI LEBEN, B 

EVOR ER" 

5070 PRINT ,, ENTGUELTIO VERLOREN HAT." 

5071 PRINT I, Ä3ESCH0SSEN WIRD MIT SECHS-SC 
HUES8I0EN" 

5072 PRINT"REVOLVERH.WENN DIE TROMMEL LE 
ER IST." 

5073 PR INT "BRAUCHT DER COWBOV EINIGE SEI 
T,BIS ER WIEDER GELADEN HAT." 

5080 PRINT"M"SPC<24)"VIEL-GLUECK MI» 
5090 POKE 1 98 , = WA I T 1 98 , .1 : GOTO30 

5998 REM P T I CT N E N 

J5QQ9 ; 

6908 PRINT'Tia GAME ÜPTIONS :" 

6018 PRINT"MW1 .GESCHWINDIGKEIT SCHU 

SS (NORM 05 >" 

6028 PRINT"ÄÖ2 GESCHWINDIGKEIT SPIE 

L < NORM. 240 >" 
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6025 PR1NT"ÄB MENUE" 

6830 PRINTTM<23) "»«BITTE WflEHLEN SIE" 

604Ö GETA* : IFfl** M 1 "TH£NPP*37309 ■■ GGTGÖ100 

6050 I FR** " 2 " THENPP-37525 : ÖQTQ6 1 08 

6060 IFA*s*3"THEN30 

6070 ÖÜTÖ6040 

6100 PR I NT : PR I NT ilNPUT" GESCHWINDIGKEIT t 

8-255 > " i G = IFG<0ORG>255THEN6100 

6110 PÖKEPP , : GOTO6000 

49999 G0TG49999 

54997 : 

54998 REH GRAFIK + SCHRIFT 

54999 = 

55000 fi=>53 

55010 FÖRI*1TDR:R£ABE:E*£+1 

55020 C*<9*4096+(S*E>)+20472 

5503Ö FORN*0TG? • REABÖ = PüKEC+H , Q = NEXTN 

S5040 NEXTI= RETURN 

551Ö0 BRTfii, 60, 36, 126,98,98,98,98,0 

55101 BATR2, 124, 36, 62, 50, 50, 50, 126, 

55102 BRTR3, 126,66,64,96,96,98, 126,0 

55103 BRTR4, 126,34,34,50,50,50, 126,0 

55104 B8TA5, 126, 64, 64, 120, 96, 96, 126, 

55105 BRTR6, 126, 64, 64, 120, 96» 96*96,8 

55106 BRTR7, 126,66,64, 118,98,98, 126,8 

55107 BATR8, 66, 66, 66, 126,98,98,98,8 

55108 BRTR9, 16, 16, 16,24,24,24,24,0 

55109 BRTR10,2,2,2, 6,6,78, 68,0 

55110 DRTRÜ, 66, 68, 72, 126,98,98,98,0 

551 1 1 BATA12, 64, 64, 64, 96, 96, 96, 126, 8 

55112 BRTR13, 102,90,66,98,98,98,98,0 

55113 BRTR14, 114,74,74, 106, 106, 186, 182,8 

551 14 BRTfiiS, 126, 66,66» 98, 98, 98, 126, 

55115 BRTA16, 126,66,66, 126,96,96,96, 8 

55116 BRTR18, 126,66,66, 126, 100,98,98,0 

55117 BRTR19, 126,66,64, 126,6,70, 126,0 

55118 BRTR28, 124, 16, 16,24,24,24,24,8 

55119 BATR21, 66, 66, 66, 98, 98, 98, 126,0 

55120 BRTR23, 98, 98, 98,98, 66, 96, 182,0 • 

55121 BATA24, 66, 36, 24, 124,98,98,98,0 

55122 BRTR25, 66, 66, 66,60,24,24,24,0 

55123 BATR48, 254, 130, 134, 210, 226, 194, 254 
,0 

55124 BRTA49, 112, 16, 16,48,48,48, 120,0 

55125 BfiTR50,254, 130,2,254, 192, 192,254,0 

55126 BRTRS1 , 126,2, 2, 62, 6, 6, 254, 

55127 BRTRS2, 128, 128, 132, 132, 254, 12, 12,0 

55128 BRTR53, 126,64,64, 126,6,70,254,0 

55129 BRTR54,254, 128, 128,254, 194, 194,254 
,0 

5513Ö BRTRS5, 254, 130, 4, 8, 24, 24, 24, 



55132 BRTA57,2S4, 130, 130,254,6,6,254,0 

55133 BRTR0,33, 136,84,32, 136,84,34, 137 

55134 BRTR28, 68, 66, 157, 161 , 161 , 157, 66, 60 

55135 BRTR129, 0,1,3,3,51,51,51,51 

55136 BfiTR138,51,51,51,63,31,7,3,3 

55137 BATA13i,3,3,3,3,3,3,3,ß 

55138 BRTR132, 0, 128, 192, 192, 192, 196, 206, 
2Ö6 

55139 BRTR133,286,206, 206, 206,206,254,25 



4,248-^ 

55140 BATR134, 192, 192, 192, 192, 192, 192, 19 
2,192 

55141 BATAI35,5i,5i,51,5i,51,51,51,51 

55142 BATfii36,51,51,63,3i,3,3,3,0 

55 1 43 BflTR 1 37 , 206 , 206 , 206 , 206 , 206 , 206 , 28 

6,236 

55144 DATRi3S,20S,206,254,248,224,I92,19 

2,0 

55145 BATR139, 8,8, 28, 28, 28, 28, 28, 62 

55146 EfiTR'140,0, 0,8, 12,0,0,0,0 

55147 BRTR141, 0,1. 3,3,1, 1,97, 49 

55148 BRTR142,63,S3,49,97,l,l,l,i 

55149 BRTR143, 1,1-1, 1,1, 1,1,0 

55150 BATA144, 0, 128, 192, 192, 128, 128, 134, 
140 

Ö5151 BRTR145; 252, 252, 140, 134, 128, 128, 12 

8,128 

55152 BRTA146, 128, 128, 128, 128, 128, 128, 12 
8,128 

55153 s 

55154 REM S P R I T E S 

55155 ? 

55500 V*53243 : PGKE V+32 , 8 : POKE V+33 , 8 : POKE 
V+28,3 

55510 PDKEV+39, 14:PÜKEV+40, 14:POKEV+37,0 
: PüKEV+38, 1 : PÖKEV+41 * : PÖKEV+42, 

5551 1 PDKEV+ 43, 1 = PDKEV+29, 12 > POKEV+23, 12 
555 i 5 PÖKEV, ■ PÖKEV+1 , 8 : PüKEV+2, 8 : P0KEV+ 
3,0: P0KE58173, 22 : PDKEV+44«, 1 

55528 PÖKE50168, 16:PGKE50169, 16SPOKE5017 

8,20:POKE50171,21 s PGKE50 1 72 , 22 

55530 FÖRI*8TD62 : RERBX : PGKE58176+I , X : NEX 

T 

55540 FORI-0TOS2 : RERBX ' P0KE58239tl , X = NEX 

T 

55550 FÖRI-0TO62 : RERBX ; PÜKE503Ö2+I', X : HEX 

T 

55560 FOR1-0TOSS : RERBX : PÜKE58365+I , X : HEX 

T 

S5S78 DIMfi*U?> :FORI-iT01?:REfBttF»CI> :NEX 

T 

55580 FüRI*8TÜ62 ! RERBX ; FÖKE58432+I , X : HEX 

T 

55590 FOR I «0TO62 : RERBX ; FQKE50496+ 1 , X = HEX 

T 

55680 FÜRI-1T024 • PDKE50S59+I , 8 : NEXT : POKE 

50559+25,66 

5561 FÜRI-i TÖ3S : POKES0559+25+ 1,0: NEXT 

55617 = 

55618 REM SOUND' 

55619 = 

55620 S~-8 : FÜR I «36S64T036943 : RERBX -POKE I , 
H ■ S*S+X : NEXT '- IFS09122THENSTGP 

55627 ; 

35628 REM HAUPT. PROGRAMM 

55629 : 

55630 8=*8 = FOR I «36944TD37550 = RERBX : POKE I , 
X : 8=8+X : NEXT : I F'S077482THEN8TÜP 

55637 : 

55638 REM INTERRUPTPR, 

55639 = 

55640 S»0 : FQRI*33024TÜ33128 : RERBX : POKEI , 
X : S«S+X : NEXT : IFSO12171THEWST0P 

55650 RETURN 
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55998 REM 8 P R I T E 8 

55999 : 

56001 BRTR0, 20, 0,0, 20, 0,1,85,64,0,60,0,0 
, 68, 0, 42, 178, 168, 170. 170, 170* 130, 170 
56082 BRTR130, 130, 1?0, 130, 162, 170, 138, 61 
,85,124,6,170,144,6,130,144,6,130,144 
56903 BRTR2, 130, 128,2, 129,64,2, 129,64, 1, 
65,64,1,65,84,21,64,0,21,64,0,0,0,20 

56004 BRTR0, 0,20, 0,1, 85, 64, 0,60, 0,0, 68,0 
, 42, 170, 168, 170, 170, 170, 138, 170, 130 

56005 BRTR130, 170, 130, 162, 170, 138,61,85, 
124,6, 170, 144,6, 130, 144,6, 130, 144,2 

56006 BflTR138,128, 1,66,128,1,66, 128,21,6 
5,128,21,65,128,0,1,84,0,1,84,0,5,0,0 

56007 BRTR5, 0,0, 85, 80, 0,15, 0,0, 15, 0,0, 42 
, 160, 0; 42, 168, 0, 42, 160, 21 , 42, 170, 176 

56008 BRTR42, 160, 16,21,80,0,37, 160,0,9,1 
28,0,9,128,0,9, 128,0,10,128,0, 10, 128 
560Ö9 BRTR8, 5, 64, 0,5, 64, 0,5, 84, 0,5, 84,0, 
0,0,0,80,0,8,80,0,5,85,0,0,240,0,0,240 

56010 BRTR0, 10, 168, 0, 10, 168, 84, 10, 168, 14 
, 170, 168, 12, 10, 168,0,5,84,0, 10,88,0 

56011 BRTR2, 96, 0,2, 96, 0,2, 96, 0,2, 160, 0,2 
,168,0; 1,80,0, 1,80,0,84,80,0,84,80 

56100 BRTRH,I,G,H," ",N,0,0,N,£, » ",J,". 

56101 BRTRi., 128, 96, 3, 192, 240, 1 , 128, 96, 1 , 
128,96,3,255,240,7,237,248,3,204,240 >. 

56102 BRTR3, 284,240,7, 237,248,7,237,248, 
3,204,240,1, 140,96,1,12,32, 1, 12,32 

56103 B8TR8, 12,0,0,12,0,1,255,224,5,255, 
232,5,255,232,15,255,252,15,255,252 
56164 BRTR5, 255, 232, 5, 255, 232, 1 , 255, 224, 
1 , 255, 224, 1 , 255, 224, 1 , 255, 224. 1 , 255, 224 

56105 BRTR5, 255, 232, 3, 255, 232, 15,255,252 
,15,255,252,5,255,232,5,255,232 

56106 BRTRI, 255, 224, 3, 255, 240, 3, 255, 240, 



,,,,,,,,,,,,,, 



56107 : 

56108 REM SOUND 

56109 : 

56110 BRTR169,0, 141,24,212, 141,4,212, 169 
,10,141,24,212,169,2,141,5,212,169 

56111 B8TR3, 141,6,212, 169,40, 141, 1,212, 1 
69,280,141,0,212,169,129,141,4,212 

56112 BRTR96, 169,0, 141, 11,212, 169,0, 141, 
£4,212,169,15,141,24,212,169,9,141 

56113 BRTR12,212, 169,0, 141, 13,212, 169, 17 
, 141,8,212, 169, 15, 141,7,212, 169, 129 

56114 DftTR14i, 11,212,96 

56115 : 

56116 REMMC-PRDGftfiMM 

56117 : 

56118 BRTR120, 169,0, 141,20,3, 169, 129,141 
,21,3,88,32,163,146,201,15,208,3,76 

561 19 BRTR20 1 , 144, 32, 0, 144, 173, 248, 195, 2 
01, 16,240,8, 169, 16, 141,248, 195,76, 125 

56120 B8TR144, 169, 17, 141,248, 195, 173,0,2 
28,41,1,208,12,173,1,208,201,71,240 

56121 BRTR5, 233, 1,141,1,208,173,0,220,41 
, 2, 208, 12, 173, 1 , 208, 201 , 229, 240, 5, 105 

56122 BRTRI, 141, 1,288, 173,0,220,41,4,203 
,12,173,8,208,201,25,240,5,233,1,141 

56123 BRTR0,208, 173,0,220,41,8,208, 12,17 
3,0,208,201,64,240,5,105,1,141,0,208 



56124 BRTR32, 169. 146,201, 15, 208, 3, 76,54, 
145,32,0,144,173,249,195,201,16,240 

56125 BRTRS, 169,16,141, 249, 195,76,234,14 
4, 169, 17, 141,249, 195, 173, 1,220,41, 1 

56126 BRTR2Ö8, 12, 173,3,288,201,71,240,5, 
233,1,141,3,208,173,1,220,41,2*203 

56127 BRTR12, 173,3,208,201,229,240,5, 105 
,1,141,3,208,173,1,220,41,4,208,12 

56128 BRTR173,2,208,201, 28,240,5, 233, 1,1 
41,2,208,173,1,220,41,8,208,12,173 

56129 BRTR2,2Ö8, 201, 64, 240,5, 105,1,141,2 
,208,160,3,206,5,208,206,7,208,234 

56130 BRTR234, 234, 136,208,244,173,0,220, 
41, 16,208,53, 162, 18, 142,248, 195, 174 

56131 DRTR251, 159,224,0,288,41, 174,255,1 
59,224,0,240,34,202,142,255,159,162 

56132 BRTfll, 142,251, 159,32,39, 144, 174,25 
5, 159, 169,32, 157, 42, 192, 173,0, 208, 105 

56133 BRTR24, 141,8,288, 173, 1,208, 141,9,2 
83,173,1,220,41,16,208,53,162,19,142 

56134 BRTR249, 195, 174,258, 159,224,8,208, 
41,174,254,159,224,0,240,34,202,142 

56135 BRTR254, 159, 162, 1, 142,250, 159,32,3 
9, 144, 174,254, 159, 169,32, 157,70, 192 

56136 BRTR173, 2, 208, 233, 1,141,10,208,173 
,3,208,141,11,208,160,11,173,251,159 

56137 BRTR201, 0,240,30,238,8,283,208,8,1 
73, 16,208,9, 16, 141, 16,288, 173,8,208 

56138 BRTR201, 80, 208, 10, 173,16,288,41,16 
,240,3,32,14,146,173,250,159^201,0 

56139 BRTR240, 30, 206, 10, 208, 16,8, 173, 16, 
£83,41,223,141,16,288,173,10,208,201 
56148 BRTR0,20S, 10, 173, 16,208,41,32,208, 
3,32,34, 146, 136,208, 179, 76,54, 146, 173 

J56141 BRTR16,208,41,239, 141, 16,288, 169,0 
,141,8,208,141,9,288,141,251,159,96 
56142 BRTR173, 16,288,9,32, 141,16,283,169 
,0,141,10,268,141,11,288,141,250,159 
£6143 BRTR96, 173,255, 159,281,8,208,40, 17 
3,253, 159,233, 1,208,38, 169,6,141,255 

56144 BRTR159, 169, 8, 141 , 251 , 159, 169, 240, 
141, 253, 159, 162,8, 169, 139, 157,42, 192 

56145 BRTR232,224,6,208,248,76, 101, 146,1 
41,253,159,173,254,159,201,0,298,40 

56146 BRTR173,252, 159,233, 1,208,30, 169,6 
, 141,254, 159, 169,0, 141,250, 159, 169 

56147 BRTR240, 141,252, 159, 162,0, 169, 139, 
157,70,192,232,224,6,288,248,76,148 

56148 BRTR146, 141,252, 159,162,224,168,8, 
208 , 288 , 253 , 232 , 224 , , 208 , 246 , 76 , 92 

56149 BRTR144, 173,0,220,41, 15,96, 173, 1,2 
20,41,15,96 

56160 : 

56161 REM INTERRUPT 

56162 : 

56163 BRTR173, 38,288, 141,248,159,173,31, 
288, 141 ,247, 159, 173,248, 159,41, 1,248 

56164 BRTR10, 169, 1, 141,249, 159, 169,96, 14 
1,168, 146,173,248, *59, 41, 2, 240, 10,169 

56165 BRTR2, 141,249, 159, 169, 96, 141, 160, 1 
46,173,248,159,41,16,240,3,32,14,146 

56166 BRTR173, 248, 159,41,32,248,3,32,34, 
146,173,247,159,41,16,240,3,32,14,146 

56167 BRTR173, 247, 159,41,32,248,3,32,34, 
146, 169, 8, 141 , 30, 20S, 141 , 31 , 208, 76 

56168 BRTR49,234 
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Buffalo Bill - Abenteuer Im Wilden Westen. 



Für VC-20 ohne Erweiterung 

Wir befinden uns in der Pionierzeit 
des Wilden Westens. Billy the Kid 
und seine Bande versetzen das 
Land in Angst und Schrecken. Ei- 
nes Tages sprengen sie eine große Ei- 
senbahnbrucke der Grand-National- 
Railroad. Der Zug, der die gesamten 
Goldvorräte der Eisenbahngesell- 
schaft transportierte, stürzt von den 
Gleisen und verunglückt. Durch die 
Wucht der Explosion werden die 
Goldvorräte in alle Richtungen fortge- 
schleudert und liegen nun verstreut 
zwischen Kakteen in der Wüste. So- 
fort nach dem Unglück benachrichtigt 
der Eisenbahndirektor Buffalo Bill. Er 
soll retten, was noch zu retten ist! Buf- 
falo reitet sofort los und beginnt das 
Gold aufzusammeln. Doch er hat nicht 
mit Billy the Kid gerechnet ! Dieser ver- 
sucht nun mit allen Mitteln, Buffalo am 
Aufsammeln zu hindern. Dummerwei- 
se hat Buffalo seinen Colt vergessen, 
also bleibt ihm nichts anderes übrig, 
als fortzulaufen. Doch Vorsicht vor 
den Kakteen und der Umzäunung. 
Wenn Buffalo es endlich geschafft hat, 
das Gold aufzusammeln und Billy the 



Kid zu entkommen, gerät er auf dem 
Weg zur Bank in den berühmt-berüch- 
tigten Indianer-Canyon! 

Pfeile aus dem Hinterhalt zischen ihm 
um die Ohren, und -schauerliches In- 
dianergeheul klingt aus allen Richtun- 
gen! Der erste Pfeiltreffer verwundet 
ihn nur, der zweite wird tödlich sein! 
Am Ende des Canyon erkennt Buffalo, 
schwer mitgenommen von den Strapa- 
zen, das Ortsschild von Buffalo-Bill- 
Ville. 

Nun ist er- endlich da; die Bank ist 
schon in Sichtweite, doch just in dem 
Augenblick, als er die Straße überque- 
ren will, passiert ihn eine riesige Rin- 
derherde. Da Billy the Kid immer noch 
hinter ihm her ist, hat er keine Zeit zu 
warten, bis die Herde vorbei ist! 
So muß er sich also zwischen den Rin- 
dern hindurch auf die andere Seite be- 
geben und muß aufpassen, daß er nicht 
auf die Hörner gerät! 
Hat er die andere Straßenseite er- 
reicht, braucht er nur noch in einen 
der beiden, mit Pfeilen markierten, 
Eingänge zu gehen. Puh, geschafft! 
Den Whisky im nächsten Saloon hat 
er sich redlich verdient! 




Das Spiel füllt die 3.5 K des VC-20 bis 
auf wenige Bytes voll aus, darum ist 
beim Eintippen größte Sorgfalt ange- 
bracht, einen OUT OF MEMORY ER- 
ROR ist schnell fabriziert! 
Zum Spielen benötigt wird ein Joy- 
stick, der am Controlport auf der rech- 
ten Seite des VC-20 angeschlossen 
wird. 



1 ßEMSTEPHöOSUBM 1 - n>aSiirtra ,, ON/ON>^RNÜINPUTflND/ON) IHPUTÜR- 

3 GÖTO2Ö000 

9 ÖÜSUB21000:CLR 

18 PDKE3£87S,23-P&INT\TK" ^X*2 

C«?922:PDKEC,81:S<i>-95:St2>«105:TCn*lß3:TC2)*185 

PÖKE3687Ö, 1 

Fük I=38400TO3SSß£ = PQKEI f 2 • HEXT 

X=INT<RNBa>*2i)+8128 

.V*INURNBa>*20>*21t??24 

FDRUslTDiS 

8*8+1 : IF3=3THENS*1 

PÖKE7701 , S<S> ^PÜKESiöS, S<S>+128 

PR1NTS* 

P0KE36875/r<S> 

POKEX, 30 : POKEV, 31 : POKEX+22, 32 : POKEV+1 , 32 

SVS4i02iIFPEEKC25OOi56THENOOTO180 
IFPEEK < C > OS 1 THEN 170 
NEXT 

POKEV+1 > 32 : PÜKEX+22 j 32 ' GQTO30 
IFPEEKC251)*23THENR-1 -00X0150 



25 
26 
2? 
30 
40 
50 
S5 
56 
5? 
58 

7Ö 
71 

75 
80 

100 

i iö 
120 

130 
140 

1S0 

160 
165 



IFPEEK<25iJ*148THENR~22 
IFPEEK(251>-140THENR»-i 



GOTO150 
GOTO 159 



I FPEEK i 2S 1 > * 1 52THENR— 22 : GOTO 1 50 

6OTO80 

I FPEEK < ü+R > O320RPEEK < C > 08 1 THEN 1 70 



PÜKEC.f32 = D 
GÜTÖ5000 



=C+R : POKECi 81 = POKEÜ+30720, : F*F+1 = IFF<100THEN80 
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PÜKE36ß75j0'PÜKE36e?0# 10:PÜKEC/42:PGKEC+30720,4:FORI«13STO195:POI<E36e77, I = NE 



170 
XT 

180 PÜK£3£877,0:pDKE3bS7S; 1 =XX*XX-1 : IFXXO=0THEN 10000 
1 30 POKEC i 32 : C*?922 : POKEC .01: G0T086 
5000 CLR : P0KE36875 , = P0KE36878 , 1 : G0SUB2 1 088 
P0KE36879/3B 

$$* u .VUmWßam n iFaRlmi'TQ12-.£tmS$+ n "+CHR*<20)+ H :fl" :NEXT 
PRINT "31 » 

^••.■.....i.ÜI « 

e^. ....... ,..*« ' 



5ß20 
5Ö30 
5040 
5Ö50 

5060 

5070 

5Ö8Ö 
5098 



5105 
5106 



5130 

5140 



PRIKT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT"I 

fl<0): 



t f» 

32:fla)»32;fiX2>*32:fk3>«32:fl<4>=32:flt5>s32:R<6>«32:fl<7Js81 
o i üb X-8 1 75 = PDKEX , 87 = POKEX+30720 , 2 
5110 FOR I ■ 1 T 022 ? FÜR J»?92 1 TÖ8 1 1 93TEP22 : POKEJ , A ■< I NT C RKD C 1 ) *8 > > : NEXT : PR I NTS* : NEXT 
5 1 20 SVS'4 1 02 = I FPEEK < 25 1 > = 1 56THENR»0 : GOTO5220 

IFPEEk<25i>«iS2TiHENR— 22:OOTO520fl 

1 FPEEK < 251 >»2STH£NR«1 = GQTG5200 

I FPEEK C 251 >-148THENR«22 = GDTOS200 

IFPEEK<251 >=140THENR*-2 = GOTQ5208 

ÖDTO5220 

PÜKEX.,32 

Füftl-7921TÜ81 19STEP22 : POKEI , fl< INT<RND< 1 >#8> ) : NEXT : PRINTS* 

IFPEEK<X>-S1THEN10000 

POKEX- 1 * 32 : X-X+R : PÜKEX , 87 = POKEX+30720 , 2 

I FX-7793ORX-7S0 1 THEN 1 5000 



5160 
5170 
5200 

5220 
5225 
5230 
5235 
5240 

10000 

10010 
1Ö011 
15006 
15005 

15010 

20000 
20010 

IN" 
20015 
£0020 
2003Ö 
20040 
2ÖÖ50 
20060 
2Ö070 
20075 
20880 
20090 

201Ö0 
20110 

20115 
20120 
20125 
28 130 
20135 
20 14Ö 
20150 
20160 
20 17ö 
£0180 
20190 
2Ö200 
20210 



GGTÜ5120 

F0R1-2ST031 : PÜKE36S79. I :F0RJ*135TD195:P0KE36877* J: NEXT: NEXT :POKE36877,0 
PDKE36879,30:PRINTM:«^MeM<3IE HABEN PECH GEHABT!)!»» BAS GOLD IST FUTSCH!" 
GOTO 150 10 

FRiHT it :n*mimm gratuliere ü i, ':print m »psie haben es geschafft" 

FORR- 1 TÜ3 : 00SUB2 1 000 : NEXT 

FOR I«1TO3000: NEXT 

PÜKE3SS79 > 59 = PR I NT " »WESTERN flUVENTURE " 

PRINT"UUHBBRINOEN SIE DIE GOLD- VORRAETE DER EISEN- BAHN SICHER ZUR BANK 



PRINT"M)fli 

PRINT" 

PRINT" 



[«BUFFRLO-BILLB 



SWILLEl 



ä »:NEXT 



#"; =NEXT 



FOR I«iJlT04: PRINT" 

PföINT H Mö - BITTE TASTE -" 

PÜKEi9Öi0:WfllTi9S^i 

P0KE36879,25 

Qß» 1 024 ■ÜxQ.Q 

PR'INT'TJi «######################"; 

FORI ■ IT021: PRINT "# 

PRINT"############ft########^" 

PGKE3B905 * : P0KE81B5* 35 

FORI-1TO10 

ÖB*INT(RNBa>*506+?680> = I FPEEK CGB>O32THEN20 128 

FÜKEGD * 81 = POKEGH+30720 1 7 

KA= INT ( RND < 1 > *50£ > +7680 • I FPEEK < K A > O32THEN20 1 38 

PÜKEKA .. 65 : POKEKfl+30720 * 5 

NEMT : ODa0 

X« I NT <RND<1) #506+7630? : IFPEEK<X)O32THEN20150 

PÜKEX, 8? 

V« I NT <RNIKi> #506+7680) = I FPEEK (V>O32THEN20 170 

POKEViöe 

U£ 1 >»-22 : W<2>a-1 : W<3>*-22 : U<4)el : W<5>«22 - W<6;'«~1 



P0KE3SS7S .10; FOR I =* 1 TO20 = POKE36876 .< 20 1 
SVS4102 : IFPEEK<251 >«=156THEN20500 



P0KE36876, 207 ■" NEXT = PÖKE36876, 8 
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28228 

20238 

20243 

28250 

20269 

20300 

20310 

2Q315 

28316 

2Ö320 

20330 

204ÖÖ 

20500 

205Ö5 

2038b 

2050? 

20510 

20538 

20540 

20600 

20610 

21000 

7 

21010 



IFPEEKC251 >-152THENRs-22 : GOTO20300 

IFPEEKC251 )-28THENR»l : GÖTÜ20300 

IFPEEKX251 )*I48THENR*22 : GGTÖ20388 

IFPEEKC251 >«140THENR*-1 : GGTÜ20300 

GOTÜ20SÖ0 

1 FPEEK ( X+fö ) =32THEN20400 

I FPEEK ( X+R ) «S i THENF OR I = 1 35TQ i 65 = PÜKE3S87S , I : HEXT : PGKE36876 , = GH=GD+ 1 

I FPEEK < X+R > «8 1 fiNDGB* 1 BTHEN00T09 

I FPEEK < X+R > =8 1 THEN2Ö4 00 

PGKE3foÖ78 , i : FÜR I ■ i 35T0 1 95 : P0KE36877 , J : HEXT : PGKE3S877 * 

GOTO 10000 

PÜKEX, 32 : X-X+R = P0KE3fiS?fi, 135 : PÜKE3S876, 138 : P0KE3SS76, : POKEX, 87 

K*SßN<X-V> = IFRBSCX-V»QÖTHENK=K+K 

K=K+3 

Vi=V+WtfO 

IFPEEKC Vi >«S7THEH20600 

IFPEEKCVn«32THEN28600 

QQaRKDC i)*Q+i :K«K+i : IFK>6THENK«1 

GÖTO20586 

POKEV, 32 = V«Vi = POKEV, 88 = IFXOVTHEN20210 

GÖTÖ2Ö328 

PDKE36876, 183 : FORI-1 TQ200 ' HEXT : P0KE36876 , 28 1 : FORI*ITO208 : HEXT : PÖKE36876, 28 

FÜR t * 1 TO400 = HEXT = PÜKE3SS76 f : RETURN 



Pros! 



Sie haben vom Grün- 
flächenamt Ihrer 
Stadt den Auftrag 
bekommen, in einem 
abgelegenen Wald 
die Überreste einer 
wilden Party zu 
beseitigen. 

Leider sind Sie selber noch nicht ganz 
nüchtern und können nicht zwischen 
den Himmelsrichtungen unterschei- 
den. Für jeden Schritt, den Sie ma- 
chen, verlieren Sie Punkte. Durch Ein- 
sammeln der liegengebliebenen Fla- 
schen können Sie Ihr Punktekonto er- 
höhen. Abzüge gibt es, wenn Sie einen 
Baum umlaufen. 

Das Spiel ist in 3 Runden unterteilt. 
Immer wenn Sie auf die Fahne in der 
rechten unteren Ecke treffen, beginnt 
eine neue Runde. 

Bonus gibt es bei Erreichen der näch- 
sten Runde und wenn alle Flaschen 
aufgesammelt wurden. Das Spiel ist 
deswegen interessant, weil es viele 
Spielmöglichkeiten zuläßt und weil 
man nach der Jagd auf den Highscore 



auch ein wenig nachdenken muß. 
Zum Schluß wird man mit einer Sie- 
germeiodie verwöhnt und kann seinen 



Namen eintragen. 

Eine Spielversion für den VC-20 

ohne Speichererweiterung. 



S 3 


ülMMEa9>,Ffta$i> 




10 


P0KE3£879j24 




12 


B2«7702 : BF «38422 : HI«0 ; Lfi»36878 = 81 = 


=36874 


14 


PRINTWT 




15 


PRINT n MMDa«*H SS 8 3 1 ä 


b a B" 


16 


pRiNP'rtiöi fia»äfiäiösa»a 


b a b" 


17 


pßiNT M iwa ■ a !ä!»!si m 


a ■»■ 


18 


PRiNT"iiiai i a m a i a i üi 


a B" 


19 


PR int M iwa B s s a s s i a i 


a b h 


20 


PRINTTfi'B<i9>"ä S" 




21 


PRINT'IIMKO BV ft.BACHLERi S B" 




22 


PR I NT " 113t B" 




23 


pr i nt » m**mMmmmmmmM " 




24 


PR INT "litt »" 




25 


PRlNT"litt SPIELBEGINN - *» 




26 


PR INT "litt *"■ 




2? 


PR INT "litt SEPRCE-TflSTES *" 




28 


PRINT"lif* #"■ 




29 


PR I NT " litt**************** " 




38 


GOSUB110 




31 


GETfi*:IFfl*"" "THEN33 




32 


C0T031 




■ 33 


2E=0 : PU*i5 : RU«@ = PÜKE36869* 255 




35 


RUaRU+1 : PU=PU+5 : BF=0 J RB=ö 




3b 


I FG«2+2ETHENPU*PU+ 1 




37 


0*8 : ZE-ZE+5 = IFRU>3THEN90 
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38 PRINT '^ H MBMlMöBM«(!^j!*^il«i^lliEäF:IJHDE 1, j RU 

40 FORI»lTÜ200ß:NEXT:pRINT"3":öüSUB?6 

42 PKINT-'äMHMMMM'SPU: : IFPLK10THENPRINT d M";TflBa4>J " " 

44 J9sPE£K<37137> :P0KE37154, 12? : J8*PEEK<37132> :P0KE37154,255 

46 IFa9flND8>-0THEN6OSUB64:DF«»DF-22:lFDF<0THENDF*0 

48 IFCJ9flNB4)»8THEN00SUB64 : BF-DF+22 = IFIiF>462THENBF=462 

5Q IF< J9flNDl£>«0THENGOSUB64 : RB*RB+1 : IFRB>21THENRB*21 

52 IF< J8RND128>*0THENGOSUB64 = RB=RB~1 : IFRB<0THENRB=© 

54 IFBZ+BF+RB«8185THEN35 

56 IFPEEKCBZ+DF+flE)*2THENPU*PU-5J6OSUB68:iFPU<0THENGOTO90 

58 IFPEEK<B2+DF+flB)-lTHENPU»PU+8:ö"Ü+i 'GQ3UB72 

59 IFO*4+ZETHENPU*PU+10 

SB POKEBZ+BF+RB, : PöKEBF+BF+RB, 6 
62 C0TÖ42 

64 P.U*=P]J- i = FOKELfi . 1 5 = POKES 1 , 20 i = FÜR I * 1 TO50 = NEXT = POKELfl . 8 • POKES 1 . : 1 FPU<8THENG0TO 
90 

65 POKEBZ+BF+RB, 32: RETURN 

68 POKELfi:iS:FÜWL»i48TO200STEP.7:POKESi+2iL:NEXT 

m FORL*2Ö0TOi28STEP-l = POKES 1+2. L = NEXT 

70 PGKELfl.0: POKES 1+2,0: RETURN 

72 POKELR ,15: FÜRL* 1 T03Ö = FORtt»2S8TO240STEP- 1 : POKES 1 +2 . M : NEXTM 

74 POKES 1+2 i : NEXTL = POKELfl. : RETURN 

76 PR I NT " »MMPUNKTE = " 

77 FORH* 1 TQ60+ZE = Bfl= I NT < RND Cl > *482 ) + 1 : POKEBZ+Bfl . 2 = POKEBF+Bfl .. 5 : NEXT • FORM« 1 T02+ZE 
7.8 FLaINT(RNDa)*462) + i :R0KEB2+FL. 1 :PÜKEBF+FL.6 :NEXT:POKEBZ+483, 3:PQKEBF+483, 2 
79 RETURN 

98- POKE36869.240:PRINT ,, 3ÖS)«ßPIELENDE! " 

92 PRINT ."ttlIHRE PUNKTZAHL:" 

93 PftINT"M"jPU 

94 IFPU>HlTHENHi«PU:G0'SUBlß3: INPUT w *WNflME";N* 
96 PRINT"»BSESTE PUNKTZRHL : Ä" :PRINT t, M";N*,HI 

98 PR INT" »WOCHE 1NHRL? U/N)" 

99 GETff* : I FH*«." " THEN99 

100 IFft*-!'J"THEN33 

101 IFfi*="N ,, THENSVSS4802 
102; ÖÜTÜ99 

103 POKELR. iS:FüR:I«iTöl9^POKESl.MEa>rFORH-lTOFfl(I>:NEXTH.I:POKELR,8:POKES1.0:RE 
TURN 

110 P0KES2.2S:püKESb.28 

1 1 1 ftH-71Se : FORB-0TO51 1 = PÜKERH+B, PEEKC327fi8+B> ■ NEXT 

1 12 FORB-0TD31 : RERBC : PÖKERH+B. C J HEXT 

113 F0RI«1T019 - README < I > , Ffia > ■ NEXT 
120 BRTfi£0, 90. 219, 255. 219, 195, 126, 60 
125 BRTR24. 24,24,60,138, 68, 60. 60 

130 BRTR24, SS, 126, 24,00. 126.24.24 

135 BfiTRB, 24, 5b, 120,248,8,8.28 

140 BRTR215, 50. 215, 15Ö, 215, 10Ö, 225. 400. 225. 400, 228, 409 

145 IJRTA228, 400. 235, 600. 231 , 200, 225, 200, , 100, 235, 100 

15S BRTR231 , 300, 225, 100, 219, 400, 232, 800, 228, 300, 223, 108, 225, 880 

155 RETURN 



A lifetime warranty. And manufac- 
turing Standards that make it almost 
unnecessary. 

Consider this: Every time you take 
your disk for a little spin, you expose 
it to drive heat that can sidetrack data. 
Worse, take it to the point of no return. 
Maxell 's unique jacket construetion 
defies heai of 140°K And keeps your 
information on track. 

And Maxell runs clean. A unique 
process impregnates lubricants 
throughout the oxide layer. Extending 
media and head life. How eood is Gold? 



Maxell's the disk that many drive manu- 
facturers trust to put new equipment 
through its paecs. It's that bug-free. 
So you can drive a bargain. But in 
accelcrated tests, Maxell floppys Icad 
the industry in error-free Performance 
and durability. Proving that if you can't 
stand the heat you don't stand a chance. 

maxell 

ITS WORTHIT 
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Fortsetzung von Seite 4 
vom Stack und gibt sie auf dem Schirm 
aus. Ein nochmaliges Aufrufen des Be- 
fehles >"."< bewirkt eine Fehlermel- 
dung, da der Stack keine Zahl mehr 
beinhaltet. Wichtig ist, daß die einzel- 
nen Worte und Zahlen immer durch 
mindestens ein Leerzeichen getrennt 
werden, da der Computer das Wort 
sonst nicht erkennen kann. Nach er- 
folgreicher Ausführung eines Wortes 
meldet sich der Computer mit „OK", 
dies entspricht in BASIC der „RE- 
ADY" -Meldung. 

FORTH ist eine sehr nachsichtige 
Sprache. Alles was eingegeben und 
nicht direkt als falsch erkannt wird, 
wird angenommen und eventuell so- 
gar ins Wörterbuch eingetragen. Man 
darf also nicht blindlings drauflospro- 
grammieren, sondern man sollte sich 
überlegen, was 4md wie man es pro- 
grammiert. 

Bei der Beschreibung des Wörterbu- 
ches und der Operationen mit dem 
Stapelspeicher (Stack) werden Be- 
zeichnungen verwendet, wie sie im 
(Installation Manual) für FORTH fest- 
gelegt sind. Diese Bezeichnungen soll- 
ten Sie sich einprägen, da sie immer 
wieder verwendet werden. 
Diese Bezeichnungen sind: 

adr Speicheradresse 
b 8 bit Byte (die oberen 8 

Bit sind null) 
c 7 bit ASCII-Zeichen 
d 32 bit doppelt lange 
Festkommazahl mit 
Vorzeichen 
f Boolsche Variable 

= „false" (falsch) 
n 16 bit-Zahl mit Vor- 
zei- 
chen 
u 16 bit-Zahl ohne Vor- 
zeichen 
<RETURN) RETURN-Taste 
Bei der Beschreibung eines Wortes 
wird künftig folgendes Schema ange- 
wendet: 

WORT (RETURN) Anzeige des Com- 
puters (Stapel vorher — > Stapel nach- 
her) 

KOMMENTAR: 
Beispiel: 

= (RETURN) OK (nl n2 n3 --) nl n2) 
>n3< wird auf dem Bildschirm ausge- 
geben 

Wie Sie schon wissen, ist >","< eine 
Forth-Anweisung, die die oberste Zahl 
des Stapels auf dem Schirm ausgäbt. 
Dies ist also die Print- Anweisung. Vor 
der Ausführung des Befehles befinden 
sich 3 Zahlen, nämlich nl, n2, n3 im 
Stapelspeicher. Davon ist die am wei- 
testen rechts stehende Zahl im TOS 



(Top of Stack). In diesem Fall also >n3<. 
Nach der Ausführung des Befehles 
sind nur noch zwei Zahlen (nl, n2) im 
Stapel, wobei nun >n2< an oberster 
Stelle steht. 

Um noch einmal die Funktion des Sta- 
pels zu verdeutlichen, geben Sie bitte 
folgendes Beispiel ein: 
12 3 4 5 6 (RETURN) OK (empty --) 
nl n2 n3 n4 n5 n6) 
Die Zahlen 1 bis 6 wurden nacheinan- 
der auf den Stapel gelegt. Um sie wie- 
der abzurufen, geben Sie folgendes 
ein: 

= (RETURN) 6 OK (nl n2 n3 n4 n5 n6 
■*-} nl n2 n3 n4 n5) 
= (RETURN) 5 OK (nl n2 n3 n4 n5 -) 
nl n2 n3 n4) 

= (RETURN) 4 OK (nl n2 n3 n4 --) nl 
n2 n3) 

= (RETURN) 3 OK (nl n2 n3 --) nl n2) 
= (RETURN) 2 OK (nl n2 -) nl) 
= (RETURN) 1 OK (nl --) empty) 
Wie aus dem Beispiel zu erkennen ist, 
werden die Zahlen in der umgekehr- 
ten Reihenfolge ausgegeben. Natür- 
lich ist es gleich, ob man den >"."< 
Befehl einzeln mit (RETURN) quit- 
tiert, oder nur durch ein Leerzeichen 
trennt. 

Aiithm e Ük-Opera t ione n 

Die 4 Grundrechenarten sind in 
FORTH und BASIC durch die gleichen 
Bezeichnungen gekennzeichnet. 
+ [n 1 n 2 - -> Summe] Addition 
- [n 1 n 2 — > Differenz] Substraktion 
* [n 1 n 2 - -> Produkt] Multiplikation 
/ [n 1 n 2 — > Quotient] Division 
Wie bei allen FORTH-Wöitem, werden 
auch hier die Operanten auf dem Stack 
erwartet, und nach der Ausführung 
durch das Ergebnis überschrieben. 
Einige Beispiele verdeutlichen die Ar- 
beitsweise der Befehlswörter: 
123(RETURN) OK 

[empty — > n 1 n 2 ] 
+ (RETURN) OK 

[n 1 n 2 — > Summe] 
. (RETURN) 15 OK 

[Summe — > empty] 
Eine andere Schreibweise: 
123 + . (RETURN) 15 OK 
43213 + . (RETURN) 256 OK 
1000344 + . (RETURN) 1344 OK " 
50010050 + + . (RETURN) 650 OK 
Die Aufgaben 14-4, 12*3 und 2000/50 
werden in FORTH wie folgt gelöst: 
144 -. (RETURN) 10 OK 
123*. (RETURN) 36 OK 
2000 50 / . (RETURN) 40 OK 
Alle oben aufgeführten Wörter, sind 
INTEGER-Operationen. Dies bedeu- 
tet, daß die Operanten sowie das Er- 
gebnis intern, 16 Bit belegen. Für die 



Anwendung ergibt sich somit folgen- 
der Zahlenbereich: 

-32768 < 

> 32767 

Dieser Zahlenbereich darf nicht über- 
schritten werden, da sich sonst das 
Ergebnis entsprechend verfälscht. 
Gleitkommazahlen sind in FORTH un- 
zulässig. 

Folgende Beispiele zeigen die Grenzen 
der Integer- Arithmatik: 
100004 * . (RETURN) -25536 OK . 

Richtig wäre 10000 
327671 + . (RETURN) -32768 OK 

Richtig wäre 32768 
52/. (RETURN) 2 OK 

Richtig wäre 2.5 
112/. (RETURN) 5 OK 

Richtig wäre 5.5 
Einige Basic-Freunde werden sich 
jetzt fragen: »Was soll ich mit einer 
Programmiersprache die nicht einmal 
richtig 5 durch 2 teilen kann?« Diese 
Frage ist sicher nicht ganz unberech- 
tigt, jedoch sollte man bedenken, daß 
in sehr vielen Spiel-, Grafik-, Steue- 
rungs- und Rechenprogrammen eine 
Integer- Arithmetik völlig ausreicht. 
Eine Gleitkommazahl können wir 
durch Wahl einer anderen Einheit in 
eine Integer-Zahl umwandeln. Bei- 
spielsweise können wir den Betrag 
1,25 DM in 125 Pf umwandeln. 
In einer der nächsten Folgen werden 
noch einige 32 Bit Arithmetik-Befehle 
vorgestellt. Diese erlauben durch ge- 
schickte Programmierung eine höhere 
Genauigkeit, als sie in Basic vorhan- 
den ist. 

Die FORTH-Schreibweise verschiede- 
ner Rechenaufgaben: 
Aufgabe: 4 + (17 * 12) 
1712 * 4 + . (RETURN) 208 OK 
Durch das Stack-Konzept werden 
Klammern überflüssig. 
Aufgabe: <3 + 9) * (4 + 6) 
39 + 46 + * . (RETURN) 120 OK 
Aufgabe: 45 / 5 * 100 
455 / 100 * . (RETURN) 900 OK 
Weitere Arithmetik Befehle sind; 
MOD [u 1 u 2 - -> Rest] 

Dividiere u 1 durch u 2 und lege Rest auf 
Stack • . 

1 1 3 MOD .(RETURN) 2 OK 
8 10 MOD .(RETURN) 8 OK 
/ MOD [u 1 u 2 - -> Rest Quotient] 
Dividiere u 1 durch u 2 und lege Rest 
sowie Quotient auf Stack 
lf 3 / MOD .(RETURN) 32 OK 
8 10 /MOD .(RETURN) 08 OK 
* / [n l n 2 n 3 - -> n 4 ] 

Errechne den Verhältnis-Faktor n 4 ~ 
n' * n 2 / n 3 . Das Produkt n 1 * n 2 , ist als 
Zwischenergebnis 32 Bit lang. Hier- 
durch ist eine höhere Rechengenauig- 
keit gewährleistet, als durch die Se- 
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quenz n 1 n 2 * n 3 / erreichbar wäre. 
Diese Anweisung wird häufig zum 
Rechnen mit genauen Konstanten ver- 
wendet. Folgende Konstanten können 
durch das Verhältnis n 2 / n 3 errechnet 
werden: 

Konstante Richtiger Verhältnis 
Wert n 2 / n 3 

PI 3.1415926 355/ 113 

Wurzel aus 2 1.414213519601/13860 
Wurzel aus 3 1.732050818817/10864 
Einige Anwendungsbeispiele: 

10355113*/- (RETURN) 31 OK 
Entspricht 10 * PI 
100355113*/- (RETURN) 314 OK 

Entspricht 100 * PI 
Wie aus dem Beispiel zu erkennen ist, 
wird mit diesem Befehl die größte Ge- 
nauigkeit, die Integer-Zahlen bieten, 
erzielt. 

* / MOD [n' n 2 n 3 - -> Rest n 4 j 
Dieser Befehl entspricht dem Voran- 
gehenden, mit der Ausnahme, daß 
auch der Rest der Division auf den 
Stack gelegt wird. 

10355113* /MOD. . 

(RETURN) 31 47 OK 
100355 113* /MOD . . 

(RETURN) 31418 OK 
ABS [n 1 - -> u 1 ] 

Dieser Befehl wandelt n 1 mit Vorzei- 
chen in die vorzeichenlose Zahl u l um. 
In Basic gibt es den gleichen Befehl. 

- 123 ABS .(RETURN) 123 OK 

- 1 ABS . (RETURN) 1 OK 
5 ABS . (RETURN) 5 OK 

Häufig benutzte Befehls-Folgen, wur- 
den iwFORTH zu einem Befehl zusam- 
mengefügt: 

1 + [n 1 — > n 2 ] entspricht der 
Befehlsfolge 1 + 

1 - [n 1 — > n 2 ] entspricht der 

Befehlsfolge 1 - 

2 + [n 1 — > n 2 ] entspricht der 

Befehlsfolge 2 + 
2- [n 1 — > n 2 ] entspricht der 

Befehlsfolge 2 - 
2 * [n 1 — > n 2 ] entspricht der 

Befehlsfolge 2 * 
2 / [n 1 — > n 2 ] entspricht der 

Befehlsfolge 2 / 
Diese Befehls-Kombinationen sind 
nicht in allen FORTH-Versionen ent- 
halten, können jedoch sehr leicht defi- 
niert werden. Das Definieren von Be- 
fehlen wird Thema des nächsten Tei- 
les werden. 

Stack Manipulation 

Wir wir schon bei einigen Befehlen 
bemerkt haben, ist es wichtig, daß die 
Parameter eines Befehls immer in der 
richtigen Reihenfolge auf dem Stack 
liegen. Bei umfangreichen Befehlsfol- 
gen muß deshalb oft die Reihenfolge 




der Operanten geändert werden, um 
eine anschließende Operation zu er- 
möglichen. Um dies zu erreichen, wer- 
den folgende Befehle verwendet: 

[n 1 - -> n 1 n 1 ] 
DUP ist der am häufigsten verwendete 
Befehl. Man kann ihn sich sehr leicht 
merken, da DUP für Duplizierung 
steht. Er hat eine einfache, jedoch 
wichtige Aufgabe. Dieser Befehl dupli- 
ziert die oberste Zahl des Stacks. 
100 DUP . . . (RETURN) 0010 OK 

12 DUP . . (RETURN) 1212 OK 
- DUP [n 1 - -> n' n'] 

Dieser Befehl entspricht dem DUP- Be- 
fehl, mit der Ausnahme, daß zuvor ge- 
testet wird, ob die zu duplizierende 
Zahl von Null verschieden ist. Nur 
wenn dies der Fall ist, erfolgt ihre Du- 
plizierung. 
100 - DUP . . (RETURN) 10 OK 

12 - DUP . . (RETURN) 12 12 OK 
DROP [n' - -> empty] 

ist das einfachste Befehlswort, wel- 



ches lediglich die oberste Zahl des 
Stacks löscht. 

100DROP . (RETURN) 10 OK 
12 DROP. (RETURN) Fehlermel- 
dung: Stack leer 
SWAP [n 1 n 2 - -> n 2 n l ] 

Dieser Befehl verändert ganz einfach 
die Anordnung der beiden obersten 
Zahlen. Dies ist oft vor Arithmetik- 
Operationen erforderlich. 

100 SWAP . .(RETURN) 100 OK 
334 SWAP . .(RETURN) 334 OK 
OVER [n 1 n 2 - -> n 1 n 2 n 1 ] 

Dieser Befehl arbeitet ähnlich wie der 
DUP-Befehl, jedoch wird hier der »Se- 
cond« [d. h. die vorletzte Eintragung in 
den Stack] kopiert. 

100 OVER . . (RETURN) 10010 OK 
334 OVER . . (RETURN) 33433 OK 
ROT [n 1 n 2 n 3 - -> n 2 n 3 n'] 

Hiermit wird die Anordnung der 
höchsten drei Stackeintragungen in 
zyklischer Rotation verändert. Dabei 
landet der älteste Eintrag an oberster 

Stelle. 

102030 ROT. .. 

(RETURN) 103020 OK 
10 20 30 ROT ROT... 

(RETURN) 201030 OK 
102030 ROT ROT ROT ROT . . 

(RETURN) 302010 OK 

Einige erweiterte FORTH-Versionen, 
wie 64 FORTE oder FORTH 79, besit- 
zen noch einige, zusätzliche Stack- 
Manipulations-Befehle. Einen gewis- 
sen Standard besitzen folgende Befeh- 
le: 

DEPTH [empty - -> n 1 ] 

Es wird die Anzahl der auf dem Stack 
liegenden Parameter übergeben. 

1020 DEPTH... 

(RETURN) 22010 OK 
DEPTH .([RE- 
TURN) OK 

PICK [n 1 - -> n 2 ] 

Die »n-te« Zahl wird auf den Stack 
gelegt. 1 PICK entspricht DUP; 2 PICK 
entspricht OVER 

12434334 PICK 

(RETURN) 123334412 OK 
1232 PICK . 

(RETURN) 12312 OK 
ROLL [n - ->] 
Dieser Befehl rotiert die »n-te« Zahl 
des Stacks an die oberste Stelle. 
2 ROLL entspricht SWAP; 3 ROLL 
entspricht ROT. 
121314154 ROLL 

(RETURN) 12151413 
12 13 14 153 ROLL 

(RETURN) 13151412 
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Definition neuer Befehls-Worte 

Nachdem wir uns mit den Arithmetik- 
Operationen beschäftigt haben, wol- 
len wir uns nun mit der Definition 
neuer Befehle befassen. Die bislang 
vorgestellten FORTH-Befehle sind bis 
jetzt ausschließlich interaktiv und in- 
terpretativ aufgerufen worden. Das 
bedeutet, daß ein Wort (z. B. DUP oder 
-h) mit der Eingabe seines Namens in 
die Tastatur aufgerufen wird, indem 
der äußere Interpreter dann das Wör- 
terbuch (Dictionary) nach diesem 
Wort absucht, es lokalisiert und aus- 
führt. Diese Art der Befehls- Abarbei- 
tung wird im Gegensatz zu Basic nur 
bei der direkten Eingabe von Befehlen' 
verwendet. Wir haben nun bereits so 
viele Befehle kennengelernt, daß wir 
daran gehen können, kleinere Pro- 
gramme damit zu erstellen. Wie schon 
im ersten Teil erwähnt, ist das gleich- 
bedeutend damit, die zu anfangs er- 
wähnten Befehle zu neuen Befehlen 
z usammen zusetz en . 

Wollen wir einen Befehl definieren, so 
müssen wir als erstes mit dem Befehl 
»:«, den FORTH-COMPILER einschal- 
ten. Als nächstes wird die Bezeich- 
nung und danach die eigentliche Defi- 
nition des neuen Befehls eingegeben. 
Mit dem Befehl »:« wird der FORTH- 
COMPILER wieder ausgeschaltet und 
damit die Definition abgeschlossen. 
Wir wollen nun einen Befehl definie- 
ren, welcher eine Zahl mit sich selbst 
multipliziert und das Ergebnis auf den 
Stack legt. Als Bezeichnung wählen 
wir »QUADRO«. 

: QUATRO DUP fr ; (RETURN) OK 
Wie zu erkennen ist, besteht die ei- 
gentliche Definition aus einer unbe- 
grenzten Zahl von Befehlen. Der Be- 
fehl DUP dupliziert die oberste Zahl 
des Stack und der nachfolgende »fr« 
Befehl bildet, durch die Multiplikati- 
on, die Quadratzahl. 

In den nachfolgenden Beispielen kön- 
nen wir den neuen Befehl testen: 
2 QUATRO • (RETURN) 4 OK 
5 QUATRO • (RETURN) 25 OK 
10 QUATRO • (RETURN) 100 OK 
Durch den Befehl » VLIST« können wir 
das gesamte Wörterbuch (Befehl's -Li- 
ste) auf Drucker oder Monitor ausge- 
ben lassen. Der neue Befehl »QUA- 
TRO« steht nun am Anfang dieser Li- 
ste. 

Bei der Definition von neuen Befehlen 
muß darauf geachtet werden, daß die 
Befehlsbezeichnung keine 31 Zeichen 
übersteigt. Es ist nicht unbedingt not- 
wendig und auch nicht immer möglich, 
daß die Definition in eine einzige Zeile 
geschrieben wird. Als Beispiel wollen 



wir einen Befehl definieren, welcher 
die Kubikzahl eines -Operanten er- 
rechnet: 

: KUBIK DUP DUP fr fr ; (RETURN) 
OK 

Wir können das gleiche auch wie folgt 
eingeben: 

: KUBIK (RETURN) 

DUP DUP (RETURN) 
fr fr (RETURN) 

; (RETURN) OK 

Bei der direkten Eingabe von Befehlen 
ist die Schreibweise kaum von Bedeu- 
tung, da die Struktur der Eingabe nicht 
gespeichert wird. Ganz anders ist dies 
bei der Programmierung mit dem Text- 
editor. Hier sollte man unbedingt auf 
Strukturierung und gute Dokumenta- 
tion achten, um auch später noch Er- 
weiterungen oder Änderungen vor- 
nehmen zu können. Wir werden uns 
später noch genauer mit diesem The- 
ma auseinandersetzen. 
Nun wollen wir auch unseren KUBIK- 
Befehl testen: 

2 KUBIK • (RETURN) 8 OK 

5 KUBIK • (RETURN) 125 OK 
10 KUBIK • (RETURN) 1000 OK 
Werden in einem Programm oft die 
gleichen Befehls-Folgen verwendet, so 
ist es sinnvoll, diese zu einem Befehl 
zusammenzufassen : 

: 1 + 1 + ; (RETURN) OK 

: 1- 1-; (RETURN) 

: 2+ 2+ ; (RETURN) 
Einige dieser einfachen Befehls-Folgen 
sind im FORTH-Standard schon enthal- 
ten und wurden im letzten Teil schon 
vorgestellt. Es ist nun sehr leicht, die 
fehlenden Kombinationen zu definie- 
ren. Wird in FORTH ein Befehl zwei- 
mal definiert, so gilt immer die letzte 
Defination. 

FORTH-Befehle können auch zur Um- 
setzung dienen. Bei den meisten farbi- 
gen Computern dient ein Zahlencode 
zur Bestimmung einer Farbe. 
Farbcode des Commodore 64: 

= Schwarz 

1 = Weiß 

2 = Rot 

3 - Türkis 
usw. 

Wollen wir statt des umständlichen 
Codes einfach die Farbe eingeben, 
können wir dies durch die folgenden 
Definitionen erreichen: 



: SCHWARZ 

: WEISS 1 
:ROT 2 

: TÜRKIS 3 



(RETURN) 
(RETURN) 
(RETURN) 
(RETURN) 



usw. 
Die Funktion ist sehr einfach: Nach 
Eingabe der Farbbezeichnung legt der 
entsprechende Befehl den dazugehöri- 
gen Wert auf den Stack. 



Es ist auch möglich, mit den Farben zu 
rechnen: 

WEISS ROT + . (RETURN) 3 OK 
Mit Hilfe eines PRINT-Befehls können 
wir auch leicht eine Vokabel-Überset- 
zung realisieren. Der PRINT-Befehl 
besitzt in FORTH folgende Syntax: 
."text". 

Elementare String-Befehle 

Leider existiert in FORTH nur ein klei- 
ner Befehlssatz zur Stringverarbei- 
tung. Der FORTH-Kem enthält jedoch 
einige Worte für einfache Ein- und 
Ausgaben von Strings (Texten), die für 
viele Applikationen völlig ausreichen 
dürften. 
»CR« 

Dieser Befehl bewirkt auf dem Ausga- 
begerät (normal, Monitor) Zeilenvor- 
schub und Wagenrücklauf. 
12 13 14.. CR. (return) 14 13 
12 OK 

. "TRONIC- CR . „VERLAG" (RE- 
TURN) TRONIC 
Verlag OK 
SPACE 

Ein SPACE -Zeichen wird ausgegeben 
. „APRIL" SPACE . „MAI" (RETURN) 
APRIL MAI OK 
Spaces (nl -» empty) 
Eine bestimmte Anzahl von SPACE- 
Zeichen wird ausgegeben. 
. „APRIL" 4 SPACE . „MAI" (RE- 
TURN) APRIL MAI OK 
EMIT (c -» empty) 

Der ASCII-Charakter c wird ausgege- 
ben. In Basic lautet dieser Befehl 
CHR$ (x) . 

65 EMIT (RETURN) A OK 

66 EMIT (RETURN) B OK 
EXPECT (adr n -» empty) 

Dieser Befehl entspricht in etwa dem 
INPUT des Basic-Interpreters. Ein 
String mit ,n'-Zeichen wird von der 
Tastatur erwartet und ab Adresse 
,adr' abgespeichert. Ein RETURN 
kann diese Prozedur beenden, auch 
wenn die Anzahl ,n' noch nicht er- 
reicht sein sollte. 
10000 11 EXPECT (RETURN) 
COMPUTRONIC (RETURN) OK 
TYPE (adr n -» empty) 
Dieser Befehl gibt eine Zeichenkette, 
die als Adresse ,adr' gespeichert und 
,n '-Zeichen lang ist, auf dem Ausgabe- 
gerät aus. 

10000 11 TYPE (RETURN) COM- 
PUTRONIC OK 
COUNT (adrl -» adr2 n) 
Dieser Befehl erwartet eine Adresse 
,adr 1' auf dem Stack und ermittelt 
hieraus die Startadresse und die Zei- 
chenzahl des Strings. Dies sind die 
Angaben, die von Type erwartet wer- 
den. 
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Die Anwendung dieses Wortes erfolgt 
also üblicherweise in der Form 
,adrl COUNT TYPE', 
wobei als ,adrl' die Adresse des 
COUNT-Bytes (Zeichenanzahl) 
übergeben wird. Der eigentliche String 
muß dem COUNT-Byte folgen. KEY 

(-» c) 

Dieser Befehl wartet auf eine beliebige 
Tastatur eingäbe und übergibt den ent- 
sprechenden ASCII-Code auf den 
Stack. Bei einigen Forth -Versionen ist 
die RETURN-Taste zur Quittierung 
erforderlich. 
KEY . (RETURN) 
A 

65 OK 

KEY KEY . . (RETURN) 
AB 

66 65 OK 

KEY EMIT (RETURN) 

D 

D OK 



Forth-Editor 

Wir haben das Definieren von neuen 
Befehlswörtern kennengelernt. Wir 
haben auch gelernt, daß in FORTH de- 
finieren gleichbedeutend mit Program- 
mieren ist. Um jedoch größere Pro- 
gramme entwickeln zu können, müs- 
sen wir diese abspeichern, laden und 
editieren können. Dies geschieht in 
FORTH -im Gegensatz zu Basic - mit- 
tels Texteditor. Der Texteditor ist lei- 
der in jeder FORTH-Version unter- 
schiedlich zu handhaben. Wir wollen 
uns deshalb mit unserer Beschreibung 
auf den weitverbreiteten „FJG-STAN- 
DARD" beziehen. 

Im Gegensatz zu vielen anderen Text- 
editoren wird in FORTH immer nur 



eine Bildschirmseite editiert. Man 
spricht dabei von einem „SCREEN". 
Diese SCREENs werden mit einer 
Nummer versehen und in der Regel 
auf Diskette gespeichert. Je nach 
FORTH-Version können 20 bis über 
100 solcher Screens abgespeichert 
werden. Ein solcher Screen ist in 16 
Zeilen zu je 64 Zeichen aufgeteilt. Da 
bei einigen Computern nur 40 Zeichen 
darstellbar sind, wird durch ein Links/ 
rechts -Scrollen ein größerer Bild- 
schirm simuliert. Ein Beispiel dafür ist 
„64 FORTH" von HES. Die meisten 
FORTH-Versionen besitzen mehrere 
TEXTPUFFER. .Diese erlauben das 
gleichzeitige Einladen ' mehrerer 
„SCREENs". 

Wollen wir einen Screen auf dem Bild- 
schirm ausgeben lassen, so können wir 
dies mit dem Befehl: LIST. 
Die Zeilennummern dienen nur zur 
Orientierung und werden deshalb 
nicht von allen FORTH-Veisionen aus- 
gegeben. Die erste Zeile sollte immer 
einen Kommentar enthalten, um nicht 
den Überblick zu verlieren. Der Kom- 
mentar beginnt mit einem (Zeichen, 
gefolgt von einem Leerzeichen und 



geht bis zum Zeichen). In diesem Kom- 
mentar sollte das Datum und die Auf- 
gabe des SCREENs beschrieben wer- 
den. Selbstverständlich können auch 
in anderen Zeilen noch Kommentare 
notiert werden. 

Wir haben nun gesehen, wie ein be- 
schriebener SCREEN aussehen kann 
und wollen nun daran gehen, einen 
SCREEN zu beschreiben. 
Zuerst suchen wir uns mit Hilfe eines 
Handbuches einen freien SCREEN 
aus. Mit . . . LIST können wir uns 
überzeugen, daß der SCREEN leer ist.. 
Ist beispielsweise der SCREEN Num- 
mer 10 unbeschrieben, so geben wir 
folgenden Befehl ein: 10 EDIT (RE- 
TURN). 

Nun befinden wir uns im eigentlichen 
Editor. Dieser ist im FIG-STANDARD 
zeilenorientiert. Das bedeutet, daß der 
Text mit Hilfe mehrerer Kurzbefehle 
editiert bzw. erstellt wird. 



Die folgende Aufstellung zeigt 
Funktion der Standard-Befehle: 
LINEn— »adr 



die 



Dieser Befehl übergibt dem Stack die 
Adresse der Zeilennummern. Ist der 
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entsprechende Screen nicht im Puffer, 
so wird dieser von der DISK eingele- 
sen. 

-MO VE adr — » n 
Die Textzeile ab Adresse adr wird in 
Zeile n kopiert. 
Hn — » 

HOLD übernimmt die Textzeile n nach 
PÄD und hält sie dort zur Ausgabe 
bereit. 
E n — » 

ERASE löscht Zeile Nummer n und 
füllt diese mit Leerzeichen (Blanks) 
aus. 
S n — » 

Dieser Befehl fügt vor Zeile n eine 
Leerzeile ein. Nachfolgende Zeilen 
werden um eine Zeile nach unten ver- 
schoben. Die unterste Zeile geht ver- 
loren. 
Dn-» 

Die Zeile n wird gelöscht. Dadurch 
wird der nachfolgende Text um eine 
Zeile angehoben. 
Tn — » 

Zeile Nummer n wird auf dem Schirm 
ausgegeben. 
Ln — » 

Der zur Zeit bearbeitete Screen wird 
ausge listet. 
Rn — » 

Dieser Befehl ist das Gegenstück zum 
H-Befehl. Die im PÄD abgelegte Zeile 
wird in Zeile n ausgegeben. 
Pn — » 

Der folgende Text wird in Zeile n über- 
tragen. Der alte Zeileninhalt wird 
überschrieben . 
I n — » 

Der PÄD wird ab Zeile n ausgegeben. 
Die nachfolgenden Zeilen werden um 
eine Zeile nach unten verschoben. 
CLEARn — » 

Der Screen n wird mit Leerzeichen 
(Blanks) vollgeschrieben und somit ge- 
löscht. 

COPYnln2--» 

Dieser Befehl kopiert den gesamten 
Screen nl nach Screen n2. 
Die nachfolgend aufgestellten Befehle 
gehören zwar nicht zum Editor, sind 
jedoch zum Verwalten der Screens er- 
forderlich. 
LISTnl— » 

Screen nl wird auf dem Schirm ausge- 
listet. 
FLUSH 

Alle geänderten Screens werden auf 
Diskette abgespeichert. 
EDITnl — » 

Screen nl wird eingeladen und kann 
editiert werden. 
LOADnl — » 

Dies ist der wichtigste Befehl. Screen 
nl wird in den Puffer eingeladen und 
dann Zeile für Zeile kompiliert. Wird 



ein Wort mehrmals definiert, so wird 
dies mit einer Meldung angezeigt. Der 
Kompilier- Vorgang wird in diesem 
Falle jedoch nicht unterbrochen. Um 
jedoch unnötigen Speicherverlust zu 
vermeiden, sollte man das Wörter- 
buch vor jedem neuen Kompilier- Vor- 
gang zurücksetzen. Wie wir wissen, 
wird dies mit dem Befehl FORGET . . . 
gemacht. 

Sicher wird sich so mancher schon 
gefragt haben, wie er längere Program- 
me schreiben soll, wenn doch immer 
nur ein Screen kompiliert wird. Des 
Rätsels Lösung ist ganz einfach: 
Mit Hilfe des — »-Befehls kann man 
beliebig viele Screens miteinander 
verbinden und somit sehr lange Pro- 
gramme schreiben. 

Der — »-Befehl wird in diesem Fall an 
das Ende des letzten Screen's gesetzt. 
Aufgerufen wird jeweils nur der erste 
Screen. Je nach Datenträger und An- 
zahl der Puffer dauert der Kompilier- 
vorgang bis zu einigen Minuten. 
Einige Forth-Veisionen besitzen auch 
die Möglichkeit, das Wörterbuch di- 
rekt abzuspeichern. 

Im C64 FORTHvon HES heißt der Be- 
fehl zum Abspeichern des Wörterbu- 
ches: DSAVE. 

Das Einladen geschieht in diesem Fall 
mit DLOAD. Das D steht in beiden 
Fällen für Dictionary und ist gleichbe- 
deutend mit Wörterbuch. Bei der Be- 
nutzung dieser beiden Befehle sollte 
man bedenken, daß nur der compilier- 
te Code angespeichert wird und somit 
keine Änderungen mehr möglich sind. 
Wir haben nun eine Menge über den 
FORTH-Texteditor erfahren und kön- 
nen somit auch längere Programme 
schreiben, ohne diese nach dem Aus- 
schalten zu verlieren. 

Wie schon erwähnt, ist es von größter 
Wichtigkeit, seine FORTH-Piogiamme 
gut zu dokumentieren, da FORTH-Be- 
fehle allein sehr unübersichtlich wir- 
ken. 

Zur Dokumentation ist übrigens an 
dieser Stelle zu sagen, daß Kommenta- 
re unbestreitbar den Vorzug haben, 
unverrückbar physikalisch an die 
kommentierte Definition geknüpft zu 
sein, Daher wird jede Änderung eines 
-Programms auch mit- der Aktua lisier 
rung der Kommentierung zwangsläu- 
fig verbunden sein. Dennoch sollte 
man die Kommentare auf der Diskette 
knapp halten. Genauer: 
Die mit dem Code verknüpften Kom- 
mentare sollten knapp sein, da sonst 
die Kompilierungszeit unnötig erhöht 
wird. 



Daneben ist die Lesbarkeit von Texten 
innerhalb von Codes relativ schlecht 
und verschlechtert auch die Lesbar- 
keit des Codes.. 

Da die Diskettenlaufwerke von Heim- 
computern auch keine unbegrenzte 
Speicherkapazität besitzen, sollte man 
sich überlegen, ob man die Dokumen- 
tation nicht wie bei Assembler-Pro- 
grammen getrennt vom Programm 
vornimmt. 

Wie wäre es denn z.B. mit Papier und 
Bleistift? 



Bedingte Verzweigungen 
Das Forth-Befehlswort „IF" eröff- 
net alle bedingten Verzweigungen 
in FORTH-Programmen. Dieses Be- 
fehlswort erwartet eine 16- Bit Zahl auf 
dem Stack und behandelt dieses als 
Flag. Der „IF" -Befehl arbeitet nur zu- 
sammen mit dem Befehlswort 
„ENDIF". „ELSE" ist ebenfalls mög- 
lich, jedoch nicht unbedingt nötig. Fol- 
gendes Beispiel zeigt den Zusam- 
menhang der einzelnen Befehle: 

IF (IF testet das Flag; falles es 
wahr (= ljist...) 

(werden die nebenstehenden 
Anweisungen ausgeführt 



(ansonsten) 
ENDIF(fortgefahren) 



IF 



(falls Flag = 1, werden neben- 
stehende Worte) 

(bis ELSE ausgeführt) 



ELSE 



(andernfalls erfolgt die Ausfüh- 
rung der Worte) 
(zwischen ELSE und ENDIF) 

ENDIF 

Bei der Verwendung von Verzweigun- 
gen sollte man immer bedenken, daß 
diese nicht interprevativ verwendet 
werden dürfen, also nur innerhalb ei- 
ner Definition. Probieren wir doch ein- 
mal die folgende, einfache Definition: 

: DIVISION(Division mit Kommentar, 
falls Rest nicht Null) (Para- 
meter wie bei / - Befehl) 

/MOD. (Division mit Rest) 

SWAP (Bringe Rest zum TOS und 

teste ihn als Flag) 

„IFDIVISION geht nicht auf" 



ENDIF 



(falls Rest = „wahr", wird 
der Text gedruckt) 
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Das nun definierte Wort „DIVISION" 
erwartet also zwei Zahlen auf dem 
Stack, dividiert diese und beläßt den 
Quotienten auf dem TOS. Die Syntax 
des neuen Befehls entspricht genau 
dem Original "/" Befehl. Im Gegensatz 
zu diesem, wird jedoch bei Entstehung 
eines Restes die Meldung „DIVISION 
GEHT NICHT AUF", ausgegeben. 
Wir wollen nun ein Beispiel zeigen, 
welches den „ELSE "-Befehl vorführt. 
Es handelt sich hier um einen Ver- 
gleichs-Befehl, welcher angibt, ob die 
erste Zahl kleiner oder größer als die 
zweite Zahl ist. 



Da im Standard-Basic kein „ELSE"- 
Befehl zugelassen ist, muß man sich 
mit zwei „IF" Anweisungen behelfen, 
wenn man nicht zu dem UNSAUBE- 
REN „GOTO"-Befehl greifen will. Dies 
geht selbstverständlich auf Kosten der 
Zeit. 

Im übrigen sei an dieser Stelle darauf 
hingewiesen, daß einige FORTH-Ver- 
sionen statt des Befehles „ENDIF" ^ en 
Befehl „THEN" verwenden. Dies muß 
in dem entsprechenden Manual nach- 
gelesen werden. 

Wir haben nun einiges über die „IF"- 
Anweisung gelernt und wollen uns 



m?A*m> jpg; 



r«A 'Wm 




:VERGLEICHE (Vergleich zweier 

Zahlen) 



< 


."(FL AG ermitteln) 


IF 


."KLEINER" 


ELSE 


."GROESSER" 


ENDIF 





Beispiel: 

33 100 VERGLEICHE (RETURN) 

KLEINER OK 

100 33 VERGLEICHE (RETURN) 

GROESSER OK 

Zum Vergleich dasselbe noch einmal 
in der Programmiersprache Basic: 

10INPUT„ZAHL1";Z1 

20 INPUT M ZAHL2";Z2 

30 IF ZKZ2 THEN PRINT „KLEI- 
NER" 

40 IF Z1>Z2 THEN PRINT „GROES- 
SER" 

50END 



nun die eigentlichen Vergleichsbefeh- 
le näher ansehen: 

< (nl n2 n3 — > nl f) 

Flag wird 1 wenn die Zahl n2 kleiner 

als n3 ist. 

> (nl n2 n3 — > nl f) 

Flag wird 1 wenn die Zahl n2 größer 

als n3 ist. 

= (nl n2 n3 — > nl f) 

Flag wird 1 wenn beide Zahlen gleich 

sind 

0< (nl n2 n3 — > nl n2 f) 

Flag wird 1 wenn n3 eine negative 

Zahl ist 

0== (nl n2 n3 — > nl n2 n3) 

Flag wird 1 wenn die Zahl n3 gleich 
null ist. 

Als Ergebnis des Vergleiches wird im- 
mer eine Boolscbe Zahl abgelegt. Die- 
se wird auch als Flag bezeichnet und 
gibt an, ob die Aussage richtig oder 
falsch ist. Ist diese richtig, so wird eine 
1 , ansonsten eine auf den Stack ge- 
legt. 

Beispiele: 

23 30 < . <RETURN> 1 OK 
30 23 < . <RETURN> OK 



30 44 = . <RETURN> OK 
-2 < . <RETURN> 1 OK 



Bei dem Vergleich zweier Zahlen soll- 
te man bedenken, daß diese vom Ver- 
gleich sbefehl überschrieben werden. 
Will man diese jedoch für weitere Be- 
rechnungen erhalten, so kann man 
dies mit dem Befehl OVER erreichen: 
23 30 OVER OVER < . . . <RE- 
TURN> 1 30 23 

Pro grammschl eife DO...LOOP 

Ein wichtiger Bestandteil aller Pro- 
grammiersprachen sind Schleifen. Un- 
ter Schleife versteht man einen oder 
mehrere Befehle, die durch zwei 
Kennzeichnungen eingeklammert 
sind. Diese eingeklammerten Befehle 
werden beliebig oft durchlaufen. Ist 
eine bestimmte Anzahl durchlaufen, 
wird das Programm fortgesetzt. In 
FORTH gibt es genau wie in Pascal 
keinen „GOTO" Befehl, deshalb ist der 
Programmierer auf die Schleife ange- 
wiesen. 

Der Schleifenbefehl hat in FORTH fol- 
gende Syntax: 

DO ... LOOP (nl n2 n3 — > nl) 
Die Schleife wird von n3 bis n2 in 
Einer schritten durchlaufen. Die Zahl 
n3 muß in diesem Fall kleiner als n2 
sein. 

Die oberste Zahl auf dem Stack wird 
immer als Anfangswert und die darun- 
terliegende Zahl als Endwert verwen- 
det. Während der Schleife wird der 
Zahlenparameter immer um eins er- 
höht, deshalb muß der Endwert immer 
größer als der Anfangswert sein. Ist 
der Zahlenparameter größer oder 
gleich dem Endwert, so wird die 
Schleife verlassen. Da diese Kontrolle 
jedoch immer erst am Ende einer 
Schleife durchgeführt wird, ist die 
Schleife bereits einmal durchlaufen. 
Will man während eines Schleifen- 
durchlaufs den Zahlenparameter aus- 
lesen, kann man dies mit Hilfe des 
Wortes „I". Dieses Wort legt den Zah- 
lenparameter auf den Stack. 

Wie der „IF" Befehl kann auch die DO- 
LOOP-Schleife nicht interpretativ 
ausgeführt werden und muß deshalb 
innerhalb einer Definition stehend 
Das folgende Beispiel gibt die Zahlen 
0-12 auf dem Schirm aus: 

: ZAHLEN 12 DO I . LOOP ; <RE~ 
TURN> OK 

ZAHCEN <RETURN> 012 3 4 5 6 7 
8 9 10 11 12 OK 

Das gleiche in BASIC: 

FOR I = TO 12 : PRINT I, :NEXT 1 

Ist der Endwert kleiner als der An- 
fangswert, so wird die Schleife nur 
einmal durchlaufen: 
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: ZAHLEN 12 DO I . LOOP ; <RE- 

TURN> OK 

ZAHLEN <RETURN> 12 OK 

Das nächste Beispiel zeigt zwei DO- 
LOOP-Schleifen die ineinander ver- 
schachtelt sind. Der Aufruf der neuen 
Definition gibt die Zahlen bis 9 in 
einer Dreieckmatrix aus. 

: SCHLEIFEI DO I . LOOP ; <RE- 
TURN> OK 

: SCHLEIFE2 DO CR 1 - DUP 
SCHLEIFEI LOOP ; <RETURN> OK 
11 10 SCHLEIFE2 <RETURN> OK 

0123456789 

012345678 

123 45 67 

123456 

12345 

1234 

123 

1 2 

1 

0OK 

In vielen Programmen werden DO- 
LOOP-Schleifen zur Verzögerung von 
Programmabschnitten verwendet. 
Durch den folgenden Vergleich wird 
ersichtlich, wie schnell die Program- 
miersprache FORTH arbeitet: 

Eine Leerschleife in FORTH: 
: PAUSE 10000 DO LOOP ; 

Die Ausführungszeit dieser Schleife 
beträgt im Durchschnitt .4 Sekunden. 
Je nach FORTH-Version und Micro- 
prozessor kann diese Zeit etwas länger 
oder auch kürzer werden. 



Die gleiche Schleife in BASIC: 
10 FOR I = TO 10000 : NEXT 1 



In Basic ist die durchschnittliche Aus- 
führungszeit etwa 4 bis 5 mal so lang 
wie in FORTH. Wie zu erkennen ist, 
eignet sich somit FORTH auch für Pro- 
gramme, in denen es auf genaue „Pau- 
se-Zeiten" ankommt. (Z. B. Eprom- 
Programmierung oder sonstige Ein- 
bzw. Ausgaben). 

So mancher wird sich inzwischen fra- 
gen, ob man das Zahlenparameter 
nicht auch um 2, oder einer anderen 
Zahl erhöhen kann. Dies geschieht in 
Basic durch den Befehl „STEP". 
Dies ist auch in FORTH möglich, in- 
dem man statt des „LOOP" -Befehls ein 
„+LOOP" einsetzt. In diesem Fall wird 
die Zahl, welche vor dem ,,+LOOP" 
auf dem Stack liegt, als Increment be- 
nutzt. Ist diese Zahl im negativen Be- 
reich, so wird die Schleife bei jedem 
Durchlauf erniedrigt. In diesem Fall 
muß der Endwert kleiner als der An- 



fangswert sein, da sonst nur ein 
Durchlauf erfolgt. 

Die Syntax: +LOOP (nl n2 n3 — > nl 
n2) 

Einige Beispiele: 

: ZAHLEN 10 DO I . 2 +LOOP ; 
<RETURN> OK 

ZAHLEN <RETURN> 2 4 6 8 OK 
In BASIC: 

10 FORI = TO 10 STEP 2 : PRINT I, : 
NEXTI 

Umgekehrte Schleife: - 

: ZAHLEN 10 DO I . -2 +LOOP ; 
<RETURN> OK 

ZAHLEN <RETURN> 10 8 6 4 2 OK 

In Basic: 

10 FORI = 10 TO 2 STEP -2 : PRINT I, 

: NEXT I 

Bei Verwendung des ,,+LOOP" sollte 
man daran denken, daß vor dessen 
Ausführung eine zur Endlos schleife 

führt. 

BEGIN. . . UNTIL-Schieiie 

Da in FORTH kein Sprungbefehl vor- 
handen ist, müssen einige spezielle 
Schleifen diese ersetzen. Eine davon 
ist die BEGIN-UNTIL-Schleife. 
Diese Schleife wird so lange durchlau- 
fen, bis vor dem Befehl „UNTIL" ein 
„WAHR-Flag" gesetzt wird. Eine 
führt zu einem neuen Durchlauf. Diese 
BEGIN-UNTIL-Struktur kann also 
sehr leicht den „GOTO" -Befehl erset- 
zen und führt somit zu einem über- 
sichtlicheren Programm. 
Die Struktur der Schleife sieht wie 
folgt aus: 

BEGIN 

(Befehle innerhalb der 
Schleife) 



(Testteil der Schleife z. B. 
Vergleich) 

(Flag wird auf Stack gelegt) 
UNTIL (Ist Flag=0 erfolgt Sprung 

nach Begin) 

(Flag ist ungleich 0; Pro- 
gramm wird fortgesetzt) 

Das Beispiel mit den Zahlen: 

: ZAHLEN 

BEGIN 

1+ (Zahl um 1 erhöhen) 




DUP . (Zahl ausgeben) 

DUP 10 = (Ist 10 erreicht?) 

UNTIL 



ZAHLEN <RETURN> 12 3 4 5 6 7 8 

9 10 OK 

In dem obigen Beispiel wird die Schlei- 
fe so lange wiederholt, bis die auf dem 
Stack liegende Zahl den Wert 10 er- 
reicht hat. 

Eine weitere Anwendung wäre bei- 
spielsweise das Abfragen der Tasta- 
tur: 

: INKEY (Auf <RETURN> wird ge- 
wartet) 

BEGIN 

KEY 

13 = (Ist <RETURN> ge- 
drückt) 

UNTIL 

"RETURN WURDE GE- 
DRUECKT" 

INKEY <RETURN> 

<RETURN> RETURN WURDE GE- 
DRUECKT OK 

Zmm Schluß das Beispiel noch einmal 
in Basic: 

10 GET E$: IF E$="" THEN 10 

20 IF ASC(E$(<> 13 THEN 10 

30 PRINT „RETURN WURDE GE- 
DRUECKT" 
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Die Endlosschleife Begin ... Again 

Diese Programmschleife kennt keine 
Aussprungbedingung, ist also endlos. 
Die Hauptanwendung dieses Befehls- 
wortes liegt im Aufruf bzw. in der un- 
begrenzt häufigen Abarbeitung eines 
(periodisch zu durchlaufenden) 
Hauptprogrammes. Die Syntax dieser 
Schleife entspricht weitgehend der 
BEGIN-UNTIL-Schleife. 
Beispiel: 

:TEST 

BEGIN 

. "COMPUTRONIC" CR (die- 
se Anweisung wird endlös ausgeführt) 

AGAIN 



Zu bemerken ist noch, daß es sich bei 
dieser Schleifenart um die schnellste 
FORTH-Schleife handelt. 




BEGIN- WHILE-Schleife 

Auch diese Schleifenstruktur wird be- 
liebig lange durchlaufen. Im Gegen- 
satz zur BEGIN-UNTIL-Schleife er- 
folgt die Abfrage einer Aus Sprungbe- 
dingung (Flag) am Anfang des Schlei- 
fenkernes. Ist die Bedingung am 
Schleif enbegin nicht erfüllt, so wird 
die Schleife nicht ein einziges Mal 
durchlaufen. Das folgende Beispiel 
zeigt die Syntax dieser Schleife: 

BEGIN • 

(Bedingung zur Erzeugung 
des Flags) 

WHILE (solange das Flag = 1 ist, 
wird der folgende Teil 
durchlaufen) 

REPEAT (Rücksprung nach BEGIN) 

In dem folgenden Beispiel wird die Ta- 
statur abgefragt. Ist die Taste „C" ge- 
drückt, so wird der Text „TASTE C 
IST GEDRÜCKT" ausgegeben. Die 
Schleife wird erst verlassen wenn eine 
andere Taste gedrückt wird. 



CR 



. "TASTE C IST GEDRÜCKT" 
REPEAT (Springe zurück) 



TASTE 
BEGIN 
KEY 67 - 
gedrückt?) 

WHILE 



= (Ist Taste „C 



Wir haben nun alle verfügbaren 
FORTH-Schleifen kennengelernt. Es 
gibt in FORTH auch die Möglichkeit 
noch weitere Arten von Schleifen zu 
definieren, doch dies ist dem etwas 
erfahreren Programmierern vorbehal- 
ten. Wer sich genauer damit beschäfti- 
gen möchte, muß auf andere Literatur 
zurückgreifen, da die Beschreibung 
dieser Definitionen den Rahmen die- 
ses Kurses sprengen würde. 



FORTH-Progr am mbeis p i el e : 

Berechnung des größten gemeinsamen 
Teilers zweier Zahlen: 

: TEILER (Größter gemeinsamer Teiler 
errechnen) 
BEGIN 
SWAP OVER MOD DUP 
= 
UNTIL 
DROP 



27 21 TEILER <RETURN> 3 OK 
8 6 TEILER <RETURN> 2 OK 

Die Berechnung wurde mit Hilfe des 
Euklidschen Algorithmus verwendet. 
Zuerst bestimmt man den Rest >R< 
zweier Zählen, >A< und >B<, durch (A 
MOD B). Ist R=0, dann ist B der ge- 
suchte Teiler. Ist R<>0, so wird A=B 
und B=R. Danach wir die obige Divi- 
sion wieder ausgeführt. Solange, bis 
die Bedingung R=0 erfüllt ist. 

Variablen und Konstanten in Forth 

Obwohl die meisten Zahlenwerte und 
Rechenoperationen über den Stack ge- 
führt werden, kann man trotzdem 
auch Konstante und Varibalen defi- 
nieren. 

In Basic wird eine Konstante wie folgt 
definiert: 

10LETY= 10 

Der Konstanten Y wird der Zahlen- 
wert 10 zugeordnet. In FORTH würde 

das gleiche so geschrieben: 

10 CONSTANT Y <RETURN> OK 

Durch diese Befehlsfolge wird im 
Wörterbuch eine Konstante „Y" ein- 
getragen, die den Zahlenwert 10 ent- 
hält. Sobald der Variablennamen auf- 
gerufen wird, erhält der Stack den ent- 
sprechenden Zahlenwert. 

Beispiele: 

12 Y + . <RETURN> 22 OK 
5 Y • . <RETURN> 50 OK 
Y Y • . <RETRUN> 100 OK 



Das ganze kann auch in einer Definiti- 
on stehen: 

:Test 

Y*. 



7 TEST <RETURN> 70 OK 

Wie wir wissen, können wir statt der 
Konstanten auch einfach folgendes 
"schreiben: 

: Y 10 ; 

Dies hat zwar die gleiche Wirkung wie 
die Definition einer Konstanten, ist je- 
doch in der Ausführungszeit wesent- 
lich länger. 

Im Gegensatz zu den meisten BASIC- 
Versionen können die Namen der Va- 
riablen, Konstanten und Befehlen in 
den meisten FORTH-Versionen bis zu 
31 Zeichen lang sein. Es ist so möglich, 
den Variablen einen sinnvollen Na- 
men zu geben, um somit das Programm 
übersichtlicher zu machen. 

Ähnlich wie die Konstanten werden in 
FORTH auch die Variablen definiert: 

10 VARIABLE TAG 

In diesem Beispiel wurde der Varia- 
blen „TAG" der Wert 10 zugewiesen. 
Der Unterschied zwischen Variablen 
und Konstanten besteht darin, daß die 
Konstante nach der Definition ihren 
Wert immer behält. Dieser wird beim 
Aufruf der Konstanten auf den Stack 
gelegt. „Beim Aufruf einer Variablen 
wird dagegen nicht der Wert der Va- 
riablen, sondern die Adresse dieser 
Variable auf den Stack gelegt. Zum 
Ändern bzw. Auslesen des Wertes ei- 
ner Variablen, benötigen wir noch 
zwei weitere Befehle, nämlich den Be- 
fehl :Wert holen (Load) ; und den Be- 
fehl ;Wert wegspeichern (STORE). 

Für den STORE-Befehl wird in FORTH 
das „!" Zeichen verwendet. Dieser Be- 
fehl entspricht weitgehend dem be- 
kannten POKE aus dem BASIC. Je- 
doch wird hier keine 8 -Bit -Zahl, son- 
dern eine 16-Bit-Zahl abgespeichert. 
Die Syntax des STORE-Befehl: 

! (nl n2 adr — > nl) 

Für den LOAD-Befehl wird in "Forth 
das " " Zeichen verwendet. Dieser Be- 
fehl ist mit dem Peek-Befehl im Basic 
zu vergleichen. Auch hier wird eine 
16-Bit-Zahl ausgelesen: 

Die Syntax des LOAD-Befehl: 

@(nl n2 adr--> nl) 

Die eben vorgestellten Befehle LOAD 
und STORE arbeiten nur mit 16 -Bit- 
Zahlen. Will man dagegen nur. ein ein- 
ziges Byte, also eine Dezimalzahl zwi- 
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sehen und 255 abspeichern, so ver- 
wendet man das Wort C! „Mit Ce wird 
ein Byte auf den Stapel geholt. Dabei 
werden die oberen 8 Bits zu Null ge- 
setzt. 

Wenn wir nur den Variablennamen, 
gefolgt von einem Dezimalpunkt 
(Print) eingeben, so erhalten wir die 
Adresse der Variablen. Diese kann je 
nach FORTH-Version und Anzahl der 
Definitionen verschieden sein. 

TAG . <RETURN> 4104 OK 

Möchte man den Wert der Variablen 
TAG auslesen, so geschied dies wie 
folgt: 

TAG @ . <RETURN> 10 OK 

Das Ändern einer Variablen geht 
ebenso einfach: 

13TAG!<RETURN> OK 

{Der Wert 13 wird gespei- 
chert) 

TAGS. <RETURN> 13 OK 

(Der Wert wird ausgelesen) 

Auf ähnliche Weise kann man auch 
den Wert einer schon vereinbarten 
Konstanten ändern. Die Adresse einer 
Konstanten erhält man mit dem Be- 
fehlswort "'" {Einzelapostroph). 
Die Syntax: 

' (Name) (nl n2 --> nl n2 adr) 
Die Adresse der Konstanten (Name) 
wird auf den Stack gebracht. 

Beispiele: 

20 CONSTANT TRONIC <RETURN> 
OK 

(der Konstanten TRONIC wird der 

Wert 20 zugewiesen) 

TRONIC . <RETURN> 20 OK 
(der Wert wird ausgelesen) 

30 ' TRONIC ! <RETURN> OK 

(der Wert 30 wird in die Konstante 
geschrieben) 

TRONIC .. <RETURN> 30 OK 
(nochmal überprüfen) 



FORTH-Zahlensystem 

Bei der Initialisierung von Forth, wird 
immer das Rechnen zur Basis 10, also 
die gewohnte Dezimalrechnung ange- 
nommen. Forth kann jedoch auch mit 
allen anderen Zahlensystemen rech- 
nen. Will man z. B. mit Hexadezimal- 
zahlen arbeiten, so kann mit dem Be- 
fehl „HEX" auf diesen Modus umge- 
schaltet werden. Danach erfolgen alle 
Ein- und Ausgaben in hexadezimaler 
Schreibweise. 

HEX (nl n2 n3 — > nl n2 n3) 

Möchte man wieder in den Dezimal- 
Modus zurück, so geschieht dies mit 
dem Befehl "DECIMAL". 



DECIMAL (nl n2 n3 — > nl n2 n3) 

Beispiel: 

DECIMAL 90 HEX . <RETURN> 5A 
OK 

Die Dezimalzahl 90 entspricht der He- 
xadezimalzahl 5A. 

HEX 5A DECIMAL . <RETURN> 100 

OK 

Das umgekehrte Beispiel. 



Möchte man ein anderes Zahlensy- 
stem verwenden, muß man in die Sy- 
stem-Variable BASE den entspre- 
chenden Wert speichern. Durch den 
Befehl HEX wird eine 16 und durch 
DECIMAL eine 10 in die Variable ge- 
schrieben. 



Möchten wir beispielsweise das Binär- 
system programmieren, so müssen wir 
nur die Zahl 2 (Zustand und 1) in die 
Variable BASE bringen. Den Um- 
schalt- Befehl nennen wir BIN. 

: BIN 2 BASE ! ; 

Mit dem Befehl BIN können wir nun 
jederzeit auf Binär-Modus umschal- 
ten. 

DECIMAL 255 BIN . 

<RETURN> 11111111 OK 
DECIMAL 16 BIN. 

<RETURN> 10000 OK 
BIN 01010101 DECIMAL . 

<RETURN> 85 OK 

BIN 00010000 DECIMAL . 

<RETURN> 16 OK 



Hier ein kleines 
FORTH-Programm 

Berechnung der Primzahlen zwischen 
zwei Grenzen. 

4 VARIABLE ZEILE 

: TEST MOD 0=; 

: DRUCKE DUP 4 .R ZEILE e DUP 0= 
IF CR DROP 4 
ELSE 1 - 
THEN 
DROP ; 

: PTEST DUP 2 / 2 DO DUP I TEST 
IF0LEAVE 

THEN LOOP DUP IF 
DRUCKE 
ELSE DROP 
THEN 
DROP ; 

: PRIM (ende anf — > ) 

CR 4 ZEILE ! 

DO I PTEST LOOP CR ; 

200 1 PRIM <RETURN> 




1 


2 


5 


7 


11 


13 


17 


19 


23 


29 


31 


37 


41 


43 


47 


53 


59 


61 


67 


71 


73 


79 


83 


89 


97 


101 


103 


107 


109 


113 


127 


131 


137 


139 


149 


151 


157 


163 


167 


173 


179 


181 


191 


193 


197 


199 


OK 









Die Spezial-Schleifien 

Die Programmiersprache FORTH ent- 
hält natürlich eine beachtliche Anzahl 
von Wörtern, die von den im letzten 
Teil vorgestellten Strukturelementen 
selber Gebrauch machen. Etliche von 
ihnen haben auch unter reinen An- 
wender-Gesichtspunkten große prak- 
tische Bedeutung. 

Daneben existieren einige Worte, die 
im wesentlichen spezialisierte Ma- 
schinensprache-Schleifen aufrufen. 
Die typischen Vertreter dieser Gruppe 
sind: 

CMOVE (adrl adr2 n --> empty) 
Die durch >n< bestimmte Anzahl Bytes, 
werden von Speicherbereich adrl 
nach Speicherbereich adr2 kopiert. 
Dabei wird so vorgegangen, daß zuerst 
die Bytes mit den niedrigsten Adres- 
sen, fortschreitend zu höheren Adres- 
sen, transportiert werden. 

FILL (adr nl n2 — > empty) 

Der Speicherbereich ab Adresse adr 

wird mit nl Bytes des Bitmusters n2 

gefüllt. 

ERASE (adr n — > empty) -. 

Der Speicherbereich ab adr n wird mit 

n Bytes des Bitmusters gefüllt. Also 

gelöscht! 

BLANKS (adr n --> empty) 

I)ie Speicherbereich ab adr n wird mit 

n Bytes des Bitmusters 32 (SPACE) 

gefüllt. 

Diese Worte gehören naturgemäß zu 
den „schnellsten" FORTH-Worten 
überhaupt, da diese in Maschinen- 
sprache definiert sind. 

weiter auf Seite 64 
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Eine Spielhallenversion, geschrieben auf 
dem Atari 800 XL, wo Reaktion und Ge- 
schwindigkeit gefragt sind. 
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Der wahnsinnige Dr. Zyclop hat 

auf dem Saturnmond Titan grauen- 
hafte Mutanten gezüchtet, mit de- 
ren Hilfe er die Erde übernehmen 
will. In Schüben wachsender Stärke 
bewegen sich die Feinde auf Ihren 
Heimatplaneten zu. Die letzte Hoff- 
nung sind 3 Raumschiffe der STAR- 
DUST-Klasse, mit denen Sie nun auf- 
brechen, um den Angriff zu stoppen. 
Sie können die Mutanten nur aufhal- 
ten, wenn Sie ihnen innerhalb kürze- 
ster Zeit große Verluste zufügen. Wer- 
den Sie die Versklavung der Mensch- 
heit verhindern, können? 

Zum Programm: 

Die DATA-Zeilen 2010 bis 2100 müs- 
sen mit besonderer Sorgfalt eingege- 
ben werden, da ein Fehler zum Ab- 
sturz des Rechners führen könnte. 



Die Maschinensprache-Unterroutine, 
die in B$ gespeichert ist (entsprechen- 
de Daten in Zeile 120), kann zum 
schnellen Löschen der Player-Missile- 
Grafik verwendet werden. Der Aufruf 
erfolgt durch X = USR (ADR [B$], 
Startadresse, Anzahl der Bytes). Die 
Startadresse gibt an, wo der Player im 
Speicher liegt, die Anzahl der Bytes 
bestimmt die Menge der zu löschen- 
den Speicherzellen. Diese Zahl darf 
255 nicht übersteigen. 

Wer Zeit und Speicher sparen will, 
läßt einfach die Zeilen 10 000 bis 
1 1 040 weg und ändert folgende Zeile: 
180 READ B: IF B = -1 THEN 1000 
Sollte vor dem Laden des Programms 
schon ein anderes gespielt worden 
sein, so sollte vor dem Start mit RUN 
der Befehl POKE 204,0 eingegeben 
werden, da ansonsten die Zeichen 
nicht definiert werden können. 

Wer eine Pause einlegen möchte, 
drückt einfach die Tasten CONTROL 
und 1. Bei einem nochmaligen 
Drücken geht das Spiel weiter. 



REM ******************** 

1 REM * * 

2 REM * <c> 12.8.1984 bv * 

3 REM * * 

4 REM * Jens Be-rke * 

5 REM % % ' 

6 REM ******************** 

7 REM 

100 CLR 'DIM fl»<44?iB»<i8>^8OC3>iCHlKPEEKC106)-R)*2nfi 
110 FÜR floi TU 18 'READ B « B« A >*CHR»< B > ' NEXT fl 

IIS ?F T PEEk"204kJ| 3 ThIh' Igfe 133 ' 206 ' "*' 1W ' 168 ' 169 ' B ' ™'**> 13fi ' 2m > 2* '* 
140 F0R fi~l TÖ 44 = READ b ■ m<. fl )»CHR9< B >• NEXT A 

*52 r D 5 T ? J 04 ' 2Ö1 ' 3 ' 208 ' £54 -'i ß £-' €' 104, 149, 211 ,202, 208, 250, 239, £12,230, 213,198,212 
,^08.« 4, 198 

i- 6 * S fl I2 2 1 2' £40 ^ S ' i61 ' 216 ' 129 '214,230,216,208,2,230,217,230,214,20B,S34.230.21 
5j 208, 230, 96 

178 Q*USR<ADR<R$>, 57344, CHI, 1024)= RESTORE 32000 

188 REflO.B'IF B«-l THEN 10000 

190 F0R R*0 T0 7<READ C'POKE CHl+B*8+fl,C< NEXT fl'GOTO 1W 

500 POSITION 9,0=? SC -'POS IT ION 24, 0»? TR; " "'POSITION 36. 0<* S0-TI i » "«PFTIIRN 

6S0 F0R fi*10 TD STEP -0. 2« SOUND @, 255, 10, A ■ NEXT A'RFTNRN ' 

700 F0R B= 1 T0 24 . POS I T I ON 6 , A ■' ? CHRSK 1 56 > - NEXT B * RET ÜRN 

800 POKE 53248, A-' POKE 53249.fi «POKE 53258, fl:RFTMPN 

900 FOR fi=I T0 500 -HEXT Fh RETURN 

1800 GRAPHICS 0'POKE 82,0'POKE 752,1 'POKE 712,0 'POKE 708,184=POKE 709,252= POKF 

10,140:? CHR$<125) " 

1010 DL-PEEKC 560 >+256*PEEK< 361)« FOR fl-6 70 28 = POKE DL+fl,4>NEXT A= RESTORE 1090 
10;^0 POKE 756, CHI/256: POSITION 1,0 = ? "SCORE i s HITS . • TIME ■ fiPi» ' 

1030 Y«102:LEs3^Sf>0 = 8f>0«TR«0 
1040 PM«(PEEK'::i06)-12)*256 = POKE 54279 , PM/256 < POKE 559,46 = P0KF 53277.3 

Ä52 «S!Ji 72i'S;E2 K L2?'?^ OKE ^wpgke ^h^poke 5327s, oJpoke" 5324s, 124- p 

0KE 53^49 ,\dA- POKE 53250 ,124 
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1060 FOR fl~0 TO 3 'POKE 53256+fl. t 0-'NEXT R 

1 070 GMJSR< RDRC B$ > , PM+5 1 2 , 255 ) ' Q«USR< RDR< B* ) , PM+768 , 255 ) 
1088 FOR R*=4 TO 8 'POKE PM+512+Y+R, 16'NEXT R 
1090 FOR R~3 TO 9= POKE PM+768+Y+R, 130= HEXT R 

1100 FOR R«0 TO 2 > READ B'POKE PM+768+Y+fl,B«NEXT fi'DRTR 16,56,16 
1110 FOR fl=5 TO 7'RERD B'POKE Pff+648+Y+fl,B 'NEXT R'DATR 68,108,40 
1120 POKE PM+648+Y+3, 16 

2090 FOR R*1536 TO 1771 'RERD B'POKE fl,B'NEXT R 

2010 DATA 120,72,138,72,152,72,173,120,2,201,11.240,7.201,7.240.16,76,54,6,198,2 
03,165,203 

2020 DRTR 201,45,208,15,169,46,76,43,6,230,203,165,203,201,203,208,2,169,202,141 
,0,208,141,1,208 

2030 DRTR 141,2.208,133,203,173,6,208,249,16, 169,64,141,0,6,169,0,141,1,216,141, 
3,208,76,78,6 

2040 DRTfl 32, 134, 6, 104, 168, 104, 170, 104, 88, 64, 104, 24, 160, 0, 165, 88, 105 , 40, 133, 206, 
165,89,133,207 

2050 DRTR 173,10,210,105,40,144,252,24,105,104,133,206,198,264,165,204,201,1,208 
,4,169,4 

2060 DRTR 133,204,145,206,169,1,133,84,169,0,133,85,96,165,205,208,25,173,132,2, 
208.89,141,234,6,169,1 

2070 DRTfl 133,205, 160, 100, 140,233,6, 165,293, 141,3,208, 141,235,6, 172,233,6, 169,0, 
. 145, 208, 152, 56, 233, 2, 24, 201 

2088 DRTR 18,208,10,169,0,145,208,133,205,141,1,210,96,168,169,16,145,208,173,7, 
208,240,15,169,96 

2090 DRTR 141,134,6,169,0,145,208,141,1,210,76,232,6,140,233,6,172,234,6,200,140 
,0,210,140,234,6 

2100 DRTR 160,42,140,1,210,96,0,0,0 

2110 fl*INT<<PM+e96)/256>'B»<PM+896)-R*256'FOKE 208, B'POKE 209, R 

2120 POKE 203, 124 'POKE 512,0'POKE 513,6=P0KE 54286, 192= POKE 204,4«POKE 205,0'POK 
E DL,PEEK<DL';+128 

2130 SOUND 1,0,0,2' SOUND 2,100,8,3 
2140 POKE 18,0 'POKE 19, 6 'POKE 20,0 
3000 IF PEEKU536>=64 THEN 4000 
3010 IF PEEKa 670 >«96 THEN 5008 
3020 ö*USR<1621> 

3030 fl«INT<<PEEK<20>+PEEK<19>*256V30>'TI*fl-INKfl/60)'IF 69-TI-0 THEN IF TR<SG*5 
+20 THEN 9000 

3040 ? CHR*< 157) 'GOSUB 508 
3050 FOR R=t TO 50= HEXT R 
3060 GOTO 30Ö0 

4000 RESTORE 4509 » fl=0 = GOSUB 800 < POKE 53251 ,PEEKX 203 > 
4010 FOR R"0 TO 9 'READ B'POKE PM+998+R, B'NEXT R 

4020 FOR R*0 TO 200 'SOUND 1,R,0, 15'NEXT A= SOUND 1 ,0, 0,0 ' SOUND 2,0,0,0 
4030 fi«l= GOSUB 780 
4040 Q»USR< RDR< B$ ) , PM+896 , 1 28 > 
4050 LE=sLE«l'POKE DL+16,2 
4060 IF LE=0 THEN 8000 

4070 POSITION 10,11:? »RAUMSCHIFFE '■ H ;=FOR A*=l TO LE = ? CHR*<33); 'NEXT fl» GOSUB 6 
00 

4080 TI=0=TR=0'POKE 53278, 8= POKE 205,0 'POKE 203,124 
4090 GOSUB 990 'POSITION 8.11=? "ACHTUNG, ES GEHT WEITER- " 'GOSUB 600 
4100 GOSUB 900 'POKE DL+16, 4 'POSITION 0,11=? CHR*U56) 
4110 fi*124» GOSUB 800 

4120 GOSUB 500=POKE 1536, 120 »POKE 1670, 165 'GOTO 2130 
4500 DRTR 0,6,161,66,17,68,146,32,0,0 

5000 Xl==INKc:PEEK< 1771 >-45 V4>»Y1*INT<(PEEK< 1769 >-16 V4 \* TRflP 5050 
5010 LOCHTE X1,Y1,Z'IF Z=*32 THEN Y1*Y1+1 'GOTO 5010 
5028 Sf>SC+20 = COLOR 37'PLOT X1.Y1 

5030 FOR R=0 TO 100 STEP 4 'SOUND 0,R,0, 10'HEXT R: SOUND 0,0,0,0 
5040 COLOR 32'PLOT XI , VI =TR~TR+1 'GOSUB 500 'IF TR=8G*5+20 THEN 6000 
5050 TRRP 40000 > POKE 205,8'POKE 53278, 0'POKE 1670, 165'POKE 1 771, PEEK* 203)'« GOTO 3 

000 
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mm A-l 'GOSUB 70Q.POKE 1336,64'POKE DL+1S,2=P0KE DL+17,2=S0UND 1,0,0,0 = 801» 2. 

«O| 1 |HD F 8 R 0?@!0 T ° M STEP " 5:F0R Bffl10 T ° Ö STEP " 2 ' 80UND *'fl'10'B.NEXT B-NEXT A' 
6028 POSITION 0ai = SG«SG+i-IF 8G=7 THEN 7flHfi 

SS2 .™.r?H T Sf! 8 I RUCH DIE8E WELLE VERSTANDEN UND MUSST NUN »jSG*3+20;» MMTflH 

TEN VERNICHTEN. " 

6040 GOSUB 660 = TR«0 ' T I «0 : POKE 295 , = Q=U8R< RDRC B$ > . PM+ft*fi . 1 ?fi } = prifc'F 5*327« , ß : fl*= i 24 
'GOSUB 800 'POKE 203,124 " ->■-•£. *,y m-i^4 

6050 GOSUB 960 -GOSUB 900 'GOSUB 900 = R=l 1 j GOSUB 700 = POKE W +17.4 «POfilT IHN 4.11 = r- » 
RUF ZUR NRECHSTEN MUTANTENHELLE. " ' rJ " i,UJN *'" ! 

^S r G 9?!£ 608 ■' GOSUB 900 «fl«lli GOSUB 70Ö=PÖKE DL+16,4 = P0KE 1536- i20.pr*KF ifi7A. liW 
! UU1U 21J0 

7600 POKE 756, 224 'POSITION 8,11«? "DU HRST ES GESCHAFFT MI" -POSITION 5,12*? "DT 
E MUTANTEN HABEN RUFGEGEBEN. " ' ^-nnrn rja,iun J ' w ■ U1 

7010 GOSUB 600= POKE DL+18,2=G0T0 8«30 

fl®loUND S 0?Sf efS" ' F ° R ""' T ° 3!REnfi " B,s °UND 8^B, 1 0,10:FOR C.-1 TO 90-NEXT CNEKT 

8010 DRTfi' 11.4*. 102,128 

8020 POSITION 18,11:? »G R M E V E P"'POKE DL+18,2 

g?3? PORTION 3,13:? »DRUECKE STRRT FUER EIN NEUER SP EL" 

8040 IF PEEKC 53279 )<>6 THEN 8040 

8050 R*0i GOSUB 800= POKE 5325 1,0= RUN 

?0%SITlON S 8?ii* 1,GOSUB 7M ' P ««"«>L+i6,2.P0KE DL+17,2= SOUND 1 ,0, 0,0. SOUND 2,0,0 
| HEr!» M D!E ZEIT IST LEIDER flBGELnUFEN - DIE M, > TANTEN FALLEN NUN UEBER DIE ERD 
9020 GOSUB 600 'GOSUB 900. GOSUB 900* GOSUB 998= A* 11 ' GOSUB 700- POKE DL+17,4=GOT0 80 

]f!§^^l^ 7tPWE ^«''POSITION 6,11=? •ei-^Uti^.POKE 712,12=P0KE 708 

1 00 1 DL=PEEK< 560 >+256*PEEKc SS 1 > 

10020 S0( >3? = S0< 1 >85 i SOC 2 >*1 12 ' Sflf .3 y*S? >. e^-f 

1 0035 GMJSRC ADRC ß* > , PM+51 2 . 255 *> 

1004S FÜR fr*9 TO 64< POKE PM+512+A, 255 . POKE PM+640+R,255=NEKT R = POKE 704..0 = POKE 

10050 FOR A*0 TO 128 STEP 0.5= POKE 53248, R= POKE 5^24fl . ?flfi-fl+?d 

10060 SOUND 0,R+20,10,5 = SÜUND l^Lt^Ä 2^2^ JtsOUND 3, A+23, 10,5 = NE 

10070 SOUND 2, 0,0,0: SOUND 3,0,0,0 

10110 POSITION 9,14 = ? #6j ,, BV"iP0SITinN 5-ifii? #fii» IFN* PFPkT " ■ pry- r t t nu > on - u- 
) " dr-u er k * . st a r t " " ' JtHw BfcKKfc • P Uc, I T I UN -J , cifei = ? #6 

101 15" IF>EEK< 53279 )*6 THEN UQFlft 
10120 2= NOT Z-POKE 623,Z'OC+0.5* JF f':>l5 THEN r-B 
10130 SETCOLOR 1 ,C,6 .SETCOLOR 0,a5-C>*<Z-I",6+W7«0l» 
10140 8*8+1 «IF S»4 THEN S«FI * ' 

10150 FOR Rl = l TO 10 

Hill Ü£ &*%££ ZV™ -O"«»'«» ,SQ<8>,l 2 , fl ,N E XT »»UND 0,0,0,0 

10180 GOTO 10115 

10190 DRTR 10,22, 10,22, 10, 10, 10,22,22. IPi 

11000 A-0. GOSUB 8Ö0 = ? #6.;CHR$U25? = POKE>08,212 = POSITION 0,3 = ? #6 j "DEINE AUFGABE 

11010 ? #6 = ? #6.i »VERNICHTE EINE AN- 1 ' 

11020 ? #6; "ZAHL VON MUTANTEN"'? #6; "IN 60 SEKUNDEN."'? #6 
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11 «30 ? #6 J "ZUERST SIND ES 28.":? #6; "SIE NEHMEN DANN VON"'? #6 j "WELLE ZU ME 

LLE UM 5" 

11 «40 ? #6j"ZU."'F0R R-l TO 2080 ■ NEXT R*GOTO 1000 

32986 DATA 1,16,56, 16, 214, 254 i 254, 214/ 198 

ä?010 DATA 2,0,168,136,136,168,16,16,68 

32820 DATA 3 , 6 , 60 , 1 95 , 1 95 , 255 , 60 , 1 70 , 1 30 

32030 DATA 4,0,4,17,17,21,21,34,136 

32040 DATA 5,34,136,0,34,128.8,128,8,-1 



Ski ist ein Spiel für eine Person» mit Joystick 
(Port 1 ) f geschrieben in Atari-Basic. 



Das Spiel ist auf den Atari-Compu- 
tern 600 und 800 lauffähig. 



Bei drücken der Starttaste erscheint 
die Skipiste. Vom Ziel bis zum Start- 
platz zeigt der Computer das Gelände 
bzw. die Piste, die zu bewältigen ist. 



Auf dem Bildschirm erscheinen neben 
der Piste Hindernisse (Hügel, Bäume) 
in den Farben Braun und Grün, die 
nicht berührt werden dürfen. Rote 
Fähnchen, ähnlich den Slalomstangen 
im Skisport, müssen durchfahren wer- 
den und dürfen ebenfalls nicht berührt 
werden. Das korrekte Durchqueren 
der Stangen wird mit 100 Punkten be- 




lohnt. Wichtig ist nun, in der vorgeg- 
ebenen Zeit das Ziel, möglichst ohne 
ein Hindernis oder eine Fahnenstange 
zu streifen, zu erreichen. Gewonnen 
hat der Spieler mit der höchsten 
Punktzahl bzw. der schnellsten Zeit. 
Das Spiel beginnt bei drücken der ro- 
ten Taste am Joystick. Drückt man 
den Joystick nach vorn, wird der Ski- 
fahrer schneller. Bei ziehen des Joy- 
sticks nach hinten, wird der Skifahrer 
langsamer. Neues Spiel: „Start" 
drücken 1 



100 DIR SCREEN*CI),PM»<1> 

110 GOTO 230 

120 REM + SKI +LINE 

130 HI»INTC R/256) 

140 L0*fl~HI*256 

150 RETURN 

160 PÖKE 66; 1 

170 FÜR W»l TO 10 

160 POKE 53279,0 

190 POKE 53279,8 

200 NEXT W 

210 POKE 66,0 

220 RETURN 

230 POKE 12,119 

240 POKE 13,228 

250 GOSIJB 1360 - 

260 REM INITIALISIERUNG 

270 REM SPIELER ROUTINE 

280 POKE 559.62 

290 POKE 54279, PMBRSE 

300 POKE 53277,3 

318 POKE 704,6 

320 P@»1024 

330 VP«188 

340 XP-128 

350 PM*(P0)*CHR*C0> 

360 PMSC P0+254 >=CHRSC ) 

370 PM*(P0+i)*PMSKP0) 

380 DIM LINKSSC 20), MITTE** 20), RECHTS** 20) 

385 DIM CURRÜK 20 >, CRASHS* 20 ) , LQESCH« 20 ) , DI RC 8 ) 

3S0 LOESCHSOHRSCß) 

400 LOE8CH*C20>»CHR«<0> 

410 L0ESCH*C2>=L0ESCH* 

420 LINKS*»L0ESCH* 

430 MXTTE**L0ESCH* 

440 RECHTS**LOESCH* 

456 CRRSH**L0ESCH4 



460 F0R 1*0 TO 15 

470 LINKS*« 1+2, 1+2 )«CHR« PEEKC CH8ET+208+I > ) 

480 MITTEL 1+2, 1+2 )«CHR*C PEEKC CHSET+224+I >) 

490 RECHTS*C 1+2,1+2 )*CHR«< PEEKC CHSET+ 1 04+ 1 ) ) 

500 CRR8HSC 1+2, 1+2 )«CHR*C PEEKC CHSET+240+I j ) 

510 NEXT I 

520 DIRC0>«0 

530 DIR<1J*2B 

540 DIRC2>»19 

558 DIR<3>*21 

560 DIRC4)*1 

570 FOR I»0 TO 3 

580 DIRCI+5)*-DIRCI> 

590 NEXT I 

600 CURRt-MITTE* 

610 PMft(P0+YP,P0+VP+20)=CURR* 

620 SCR»SCR+10-PEEK<0) 

630 POKE 20,0 

640 POSITION 2,0'? #6;8CR; H "j 

645 POSITION 16,0'? #&>"■■ "jUFR; 

650 IF PEEKC i>*0 THEN 1310 

668 ST*STICKC0) 

67fd LINKS» NDT PTRIGC1) 

680 RECHTS» NOT PTRIGC0) 

690 LR*LINK8+2*RECHTS 

700 CURR*'*MITTE* 

710 POKE 53248, XP 

720 IF LINKS THEN CURRe»LINKS* 

730 IF LRO0LR THEN SV=2'TI»5 

740 IF RECHTS THEN CURR**RECHTS* 

750 IF LRO0LRTHEH SV*4-TI*5 

760 IF TI>0 THEN TI«TI-1 

770 SOUND 0,SV,0,TI 

780 IF LR*0 THEN SOUND 0,0,8,0=11-0 

790 XP«XP+LINKS-RECHTS 

800 ÖLR»LR . 

810 UP«<ST«14 OR ST« 10 OR ST»S) 
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DÖWN*<ST«5 OR 8T*9 OR ST» 13) 
YP»YP-2*UP+2*DÖWN 
IF YF>200 THEN YP*200 
IF YP<48 THEN VP»40 
POKE 0,<YP~48V48+1 
IF PEEK<P0PF>*0 THEN 610 
WHICH»INT< LOG<PEEK< P8PF > VLQG< 2 )+0. 1 ) 
POKE 0,0 

PM*< P0+YP, P0+YP+20 )*LÜE3CH* 
POKE HITCLR,0 
IF MHICH02 THEN 1138 
REM POINTS 

PTR*fiSC< DL ISTf < 8 ) >+Z56*RSC< DLI ST$< 9 > > 
LINE*INT< < YP-39 V8 >+l 
CGL*INT< < XP-49 V8 Hl 
970 LÖCaPTR+L I NE*20+CÖL 
980 SOUND 0,0,0,0 
990 FÖR 1-0 TD 8 
1800 P«PEEK< L0C+D1R< I > ) 

IF P<128 OR PM92 THEN 1070 
POKE LOC+DIR<I>,0 
8CR*SCR+< F*139 )*S0+< P=134 >*100 
1*8 

NEXT 1 
GOTO 1090 
NEXT I 
GOTO 618 

FOR W*15 TO STEP -1 
SOUND 0,20, 10, W 
NEXT W 
GOTO 610 
REM CRASH ( 
SOUND 0,0,0,0 

PM« P0+YP, P0+YP+20 >*CRHSHS 
POKE 704, 56: FOR j*i TO S 
FOR K*3 TO 8 

SOUND Q,K,1 0,8 'NEXT 10 NEXT J 
FOR N«l TO 25= NEXT N'POKE 704,14 
FOR L-l TO 25 < NEXT L 
PM*< P0+YP, P0+YP+20 )«LOESCH* 
YP*200 

PfliC P0+YP , P0+YP+20 >«CURR* 
POKE 0,1 

SOUND 0,0,0,0: POKE 704,9 
XP* INT< 72+90*ftND< & > ) 
IF FEEKC P0PF ><>0 THEN POKE HITCLR,0** 
GÖTO 1240 
PÖKE 53248, XP 
POKE HITCLR, ' UFA*UFR+1 
IF UFFO10 THEN SCR*SCR-580 
8CR«SCR-50 
IF SCR<0 THEN SCR*0 
GOTO 610 

POSITION 7,0<? #6J"GFIME OVER" 
SOUND 0,0,0,0 

BCREENf ( 326 , 338 >*°Pr«ftßtr i 92*r " 
IF STRIG<0><>0 THEN 1340 
GOTO 1410 

REM INITIALISIERUNG 
GRRPH I CS i POKE 752 , 1 > POKE 82 , 
SETCOLOR 2,0,0 
POSITION 0,22 

? "Bräüchfit dii #in* SPieUVüeitunö T" 
OPEN #1 , 4, 0, "K ' " > GET #1 , R 
IF fi*74 THEN CLOSE #1 'GOSUB 3210 
GRRPH I CS 17 
HIL0«1 20 <UFflä0 
POKE 33248,0 
PDKE 0,0 
PDKE 712,14 
1460 PDKE 709,198 
1470 POKE 711,136 
1480 POKE 710, 250t POKE 708,85 
1490 P0PF-53252 
1500 HITCLR*5327B 
1510 POKE HITCLR,0 



820 
830 
840 
850 
860 
870 
880 
8S0 
900 
910 
928 
938 
940 
950 
960 



1010 

1028 

1030 

1040 
1050 
1060 

1070 

1080 
1090 

1100 

1110 

1120 
J130 
1140 
1150 
1160 
1165 
1170 
1180 
1185 
1190 
1200 
1210 
1220 
1230 
1240 
1250 

1260 
1270 
1280 
1285 
1290 
1308 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1375 
1380 
1385 
1390 
1400 
1410 
1420 
1430 
1440 
1450 



1 520 SCRBHSE«PEEK< 1 06 )- l 6 

1530 PMBRSE-S.CRBASE-8 

i540 CHBRSEaPMBRSE 

1 550 VVTP*PEEK< 1 34 >+256*PEEKC 1 35 ) 

1568 STRRTP*PEEK< 140 )+Z56*PEEKC 141 ) 

1 570 fl»SCRBRSE*256-STHRTP 

158B GOSUB HILO 

1590 POKE VVTP+2/L0- 

1680 POKE VVTP+3,HI 

1610 POKE WTP+4,1 

1620 POKE VVTP+5,16 

1630 POKE WTP+6,1 

1640 POKE VVTP+7,16 

1650 A*PMBA8E*236-8THRTP 

1660 GOSUB HILO 

1670 POKE VVTP+10,LO 

1680 POKE VVTP+ll,HI 

1690 POKE VVTP+12,1 

1700 POKE VVTP+13,8 

1710 POKE VVTP+14,1 

1728 POKE VVTP+15,8 

1730 CH8ET*CHBA8E*256 

1740 IF PEEK<CHSET+9X>6 THEN GOSUB 2640 

1750 GOSUB 2950 

1768 Z*USR<1638> 

1770 POKE 756,CHBRSE 

1780 RESTORE 1840 

1790 DIN T*C20),DLISTfC40),TOPLINE»t20) 

1800 RaflDRCDLIST*) 

1818 GOSUB HILO 

1820 POKE 561, HI 

1B30 POKE 560, Lö 

1840 DRTR 112,112,112,70,0,8,102,0,0 

1850 FOR 1*1 TO 9 

1660 READ fl 

1 870 DL 1 ST.*< I >«CHR*< fl > 

1830 NEXT I 

1890 FOR 1*1 TO 20 

1 900 DL I ST*( I +9 >*CHR*< 6+32 ) 

1910 NEXT I 

1928 DLIST*<30)*CHR$C6> 

1 930 DL I ST*< 3 1 >*CHR$< 65 ) 

1 940 DL I STSK 32 )»CHR*C FEEK< 560 > > 

1 950 DL IST*< 33 )*CHR*C PEEK< 561 ) ) 

i960 SCREEN*(1)«CHR*<0> 

1 970 SCREEN*< 4095 >*CHR*< > 

1 988 SCREEN*< 2 >*8CREEN$ 

1990 TOPLINE**SCREENS 

2080 fiafl'DR< TOPLINE*) 

2010 GOSUB HILO 

2820 DLIST*<5,5)*CHR*XLÖ> 

2830 DL I ST*( 6 , 6 >*CHR*< H I > 

2040 POKE 88, LG' POKE B9,HI 

2850 POSITION 8,0:? #6; "8kl I"; 

2055 REM LETZTE BUCHSTABE VON 'SKI' 

2056 REM IN ZEILE 2050 INVERSE 
2068 SCREENtC 489, 414 >*" ziel" 

2065 REM 'ZIEL' IN ZEILE 2068 

2066 REM INVERSE SCHREIBEN 
2670 RaSCRBRSE*256 

2030 FOR L*24 TO 198 

2090 fiaR+20 

2100 GOSUß HILO 

2118 T«taCHR*<LO> 

2128 T*<2>«CHR*<HI) 

2130 DLIST*<8,9>*Ti 

2140 S»L*20+1.E*8+19 

2 1 50 LFLEN* I NT< 7*RND< >+ 1 > 

2 1 60 RTLEN* I NT< 7*RND< 8 >+ 1 > 

2170 FOR 1*1 TO LFLEN 

2180 Z*INTC8*RND<0)> 

2 198 T«< I )*CHR*C C 72+Z >*< Z< 2 > ) 

2200 NEXT I 

22 1 SCREEN$< S , 8+LFLEN >*T*<". 1 , LFLEN ) 

2220 FOR 1*1 TO RTLEN 

2230 Z«INK8*RND<0)> 
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2240 T$C I >«CHR$< C 72+Z >*< Z<2 ) > 


2739 FOR J*=0 TO 7 


2250 NEXT I 


' 2740 READ B 


2260 SCREENtt E-RTLEN, E )»T*C 1 , RTLEN ? 


2750 POKE CH8ET+fl*8+J,B 


2270 IF RND<I»0.5 THEH 2420 


2760 NEXT J 


2280 IF L~LRST<10 THEH 2420 


2770 GOTO 2710 


2298 LR8T»L 


2780 DRTR 1,0,6,14,28,24,32,0/126 


2308 BKEW*1'IF RND<0»0.5 THEN SKEW*-1 


2790 DRTR 6,192,192,220,20,28,7,5,7 


2310 SPsINT<7*RND<0)+5) 


2808 DRTR 7,8,0,24,52,44,60,24,0 


2320 SCREENSC 8+SP , S+SP )«CHR*C 1 34 > 


2810 DRTR 8,16,56,56,124,124,254,16,16 


2330 FOR I»@ TO INTCRNiXl >*2.76) 


2820 DRTR 9,8,28,62,62,62/8,8,0 


2340 RT"SP+I*40+SKEW*< 1+1 ) 


2830 DRTR 16,0,56,94,106,94,116,56,0 


2350 LF«RT+20-SKEW*2 


2840 DRTR 11,9,119,69,117,21,119,0,0 


2368 SCREENSC S+LF , 8+LF )»CHR*C 204 ) 


2850 DRTR 12,8,24,56/ 120, 6,8/B,B 


2370 SCREEN$< S+RT , 5+RT >«CHR*< 204 ) 


2860 DRTR 14,254,89,24,156,82,33,16/8 


2380 RT=8P+I*40+8KEW*I 


2870 DRTR 13,0,0,0,48,88,56,16,186 


2390 SCREEN*< S+RT , S+RT )*CHR«C i 34 > 


2880 DRTR 27,127,154,24,57,74,132,8,16 


2400 NEXT I 


2890 DRTR 26,0,0,0,12,26,26,8,93 


2410 GOTO 2548 


2900 DRTR 29/186,89,24,154,170,198,65,65 


2420 IF RNDU »0.625 THEN 2460 


2910 DRTR 28,0,0,24,60,60,24,24,60 


2430 SPaS+INTC 13*RMX )+5 > 


2920 DRTR 31,10,24/24,0/0/0/0/8 


2440 SCREEN$f. SP , SP )*CHR3K 7 > 


2930 DRTR 30,1,18,36,74,161,18,156,77 


2450 GOTO 2540 


2948 DRTR -1 


2460 IF RND<1 »0.025 THEN 2500 


2950 RE STORE 3020 


2470 SP*S+INT< 13*RND< >+5 ) 


2960 FOR 1*1535 TO 1648 


2480 8CREEMK SP , SP )*CHR*< 1 ) 


2970 RERD R 


2490 GOTO 2540 


2980 POKE I/R 


2500 IF RNDC1»0.1 THEN 2540 


2990 NEXT I 


25 10 SP*S+INT< 1 3«RND< 8 >+5 ) 


3000 RETURN 


2520 SCREENSC SP , SP >*CHR*C 139) 


3010 REM BITTE GENAU EINGEBEN 


2530 GOTO 2540 


3020 DRTR 169,9,133,0,169,1 


2540 NEXT L 


3030 DRTR 141,99,6,169,8,141 


2550 fi«Ft+200 


3040 DRTR 98,6, 104, 104, 133,7 


2560 GOSUB HILO 


3050 DRTR 104,133,6,104,104,133 


2570 T**CHR$<L0 5 


3060 DRTR 1,162,6,160,35,169 


2580 T$<2)*CHR*<HI> 


3070 DRTR 7,32,92,228,96,216 


2590 DLI8T**8,9)*T* 


3088 DRTR 165,0,240,55,165,1 . 


2600 GOSUB 160 


3090 DRTR 240,51/206,99,6,173 


2610 IF STRIG<0> THEN 2600 


3100 DATA 99,6,208,43,165,9 


2620 fl-USRC 1536, RDRC DLIST»< 8 ) >, 176 ) 


3110 DATA 141,99,6,206,98,6 


2630 RETURN 


3128 DATA 174,98,6,142,5,212 


2640 FOR I«0 TO 7 


3130 DATA 208,27,160/0,56,177 


2650 PQKE CHSET+1,0 


3140 DATA 6,233,20,145,6,160 


2660 NEXT I 


3150 DATA 1,177,6,233,9,145 


2670 FOR I»128 TG 471 


3160 DATA 6,169,7,141,98,6 


2680 POKE CHSET+I,PEEK< 57344+1) 


3178 DATA 141,5,212,198,1,76 


2690 NEXT I 


3188 DATfi 98,228,8,0,0,0 


2760 RESTORE 2788 


3198 DATA 104,162/228,160,98 


2710 RERD fl 


3200 DATA 169,7,32,92,228,96 


2720 IF fl*-l THEN RETURN 


3210 REM SP I ELANLEITUNG 


3220 GRRPHICS 0'POKE 752 , 1 ' SETCOLOR 2, 8.« = POSITION 7,1'? " S K I " 


3230 POSITION 1.4'? "SKI ist ein SPiel fuer eins- Person mit" 


3235 REM DRS WORT 'SKI' IN ZEILE 3220 


3236 REM UND ZEILE 3238 INVERSE SCHREIBEN 


3240 POSITION 1,5'? "Joystick «Port <1)>." 


3258 POSITION 1,6"? "Zu Besinn des Spieles wird durch " 


3260 POSITION 1/7 = ? "schollen des Bildschirmes von unten " 


3270 POSITION 1,8 ! ? "nach oben die Gesamte Strecke fuer den" 


3280 POSITION 1,9«' 


' " Abfahrtslauf 9ezei9t." 


3298 POSITION 1,18 


? "Die Baeume sowie die Hindernisse als" 


3300 POSITION 1,11 


? "auch die Faehnchen duerfen nicht " 


3310 POSITION 1,12 


? "beruehrt werden, da bei Kollision 58 " 


3320 POSITION 1/13 


? "Punkte ab9ezo9eri werden." , 


3330 POSITION 1,14 


? "Zwischen den Faehnchen und auf dem " 


3340 POSITION 1,15 


? "Gelaende li elenden Punkte bekommt man " 


3350 POSITION 1,16 


? "bei Ueberfahren. " 


3360 POSITION 1,17 


? "Wenn die öesamte Strecke 9ezeist wurde" 


3370 POSITION 1,18 


? "ertoent ein Schnarren vom Lautsprecher" 


3380 POSITION 1,19 


? "des Rtari, und durch dreucken des " 


3390 POSITION 1,20 


? " Tr i 99er s ( roter KnoP f > w i r d das , sow i e " 


3400 POSITION 1,21'? "Jedes weitere SPiel begonnen." 


3418 POSITION 25,22«? ■'-— > TRIGGER" 


3420 IF STRIG<0><>0 THEN 3420 


3438 RETURN 
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Topprogramm 

Nachdem die Spielversion „Frogger" (für den Commodore 64) 
auf den Markt kam, wurde der kleine Frosch rasch zu einem 
Riesenerfolg! 



Wir stellen Ihnen nun in unserer 
Ausgabe eine Spielversion für Ih- 
ren ZX-Spectrum vor. 

Während des Spielverlaufs müssen 
Sie versuchen, alle fünf Frösche, die 
Ihnen zur Verfügung stehen, in ihren 
Unterschlupf zu bringen. Zunächst 
muß jeder Frosch eine vielbefahrene 
Straße überqueren. Auf dem Mittel- 
weg angekommen, kann er sich erst 
einmal ausruhen und die Flußüber- 
querung vorbereiten. - Ab Level 3 
wird die Ruhepause auf dem Mittel- 
weg durch eine sich hin- und herbe- 
wegende Schlange erschwert. - Auf 
die andere Seite des Flußes kann der 
Frosch nur gelangen, wenn er sich ab- 
wärtstreibende Schildkröten und 
Baumstämme zu Hilfe nimmt. Auf ih- 
nen kann er sich, ohne ins Wasser zu 
müssen, kurzfristig bewegen. Aber 
Vorsicht - die Schildkröten tauchen 
des öfteren unter. An dieser Stelle 
kann also ein Frosch verlorengehen. 
Das Untertauchen der Schildkröten 
kündigt sich durch das Wechseln der 
Farbe an. 

Ist der Fluß erfolgreich überquert wor- 
den, müssen Sie ihn in seinen Unter- 
schlupf einquartieren. Vergewissern 
Sie sich aber vorher, ob sich nicht 
schon eines dieser fürchterlichen Kro- 
kodile in der Behausung aufhält. Sind 
alle fünf Frösche gut untergebracht, 
erfahren Sie über den Score, wieviel 
Zeit Sie benötigt haben. - Gesteuert 
wird mit der Tastatur: >2< oben, >W< 
unten, >9< links, >0< rechts. Mit >P< 
kann das Spiel vorübergehend ge- 
stoppt werden. Bei >S< können Sie es 
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wieder starten. Eine Besonderheit: 
Sollte der eigentlich gute Sound stö- 
rend wirken, kann dieser durch die 
Taste >T< abgeschaltet werden. Das 
Spiel ist in sieben Levels unterteilt. 
Wir wünschen viel Vergnügen! 

Programmeingabe 
Geben Sie Programmteil > 1 < ein und 
starten Sie es mit RUN. 
Das Programm überprüft nun, ob die 
Datazeilen richtig eingegeben wurden. 
Falls nicht, verbessern Sie diese. 
Danach fragt das Programm nach den 
Zahlen, die Sie aus der Tabelle von 
links nach rechts eingeben. Ganz links 
steht immer die Adresse der ersten 
Zahl für diese Zeile. Diese Adresse 
dient nur zu Orientierung und braucht 
nicht mit eingegeben werden. 
Nach, jeweils 50 Eingaben überprüft 
das Programm, ob die 50 eingegebenen 
Zahlen mit der Prüfsumme überein- 
stimmen. Stimmt es nicht, müssen die 
vorigen 50 Zahlen nochmals eingege- 
ben werden. Wenn alles richtig war, 



können Sie weiter eingeben oder das 
Eingegebene abspeichern oder Voran- 
gegangenes laden. 

Wenn Sie ihre eingegebenen Zahlen 
abspeichern wollen, müssen Sie später 
beim Laden zuerst CLEAR 50 000 ein- 
geben und dann mit LOAD "" das Ein- 
gebeprogramm laden. Danach kom- 
men Sie in das Menü. Wenn Sie jetzt 
„L" für Load engeben, werden die Zah- 
len geladen, die Sie vorher eingegeben 
haben. Nun können Sie dort weiter- 
machen, wo Sie vorher aufgehört ha- 
ben. 

Wenn Sie alle Zahlen eingegeben ha- 
ben, erscheint eine Fehlermeldung 
,Out of Data'. Löschen Sie nun den 
Computer durch NEW (die einge- 
gebenen Zahlen werden dadurch nicht 
zerstört) und geben Sie nun Programm 
2 ein. 

Speichern Sie nun alles wie folgt ab: 
SAVE „FROGGER" LINE 10: SAVE 
„FROGGER" CODE 60 000, 3860. 
Nachdem Sie das Gespeicherte mit 
VERIFY"": VERIFY"" CODE über- 
prüft haben, löschen Sie den Compu- 
ter total (RANDOMISE USR einge- 
ben oder Stecker ziehen) und laden Sie 
das Programm mit LOAD"". Nun wird 
Programm 2 geladen und dieses lädt 
das Maschinenprogramm und startet 
es sofort. Sollte der Computer abstür- 
zen oder das Spiel nicht anfangen, 
müssen Sie die Zahlen im Speicher mit 
den Zahlen in der Tabelle vergleichen 
und gegebenenfalls Verbesserungen 
ausführen. Da das Programm ihre Ein- 
gaben durch Prüfsummen intensiv 
überprüft, dürfte ein Fehler schon viel 
eher auftauchen. 



10 REM 
20 REM 
30 REM 
40 REM 
30 REM 
60 REM 
70 REM 
80 REM 
90 REM 



* * 

* FROSBER * 

* * 

* COPYRIBHT 19B4 » 

* * 

* HANS PETER FUNKE # 

* * 



Ausgewählt von der Redaktion zum 
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100 REM 

110 REM PROBRAMM 1 

120 REM 

130 CLEAR SOOOOi POKE 23609,20 

140 POKE 23658,12 

130 LET PF=0 

160 FOR N=l TO 78 

170 READ P 

180 LET PF»PF+P 

190 MEXT N 

200 IF PF0443156 THEN PRINT "FEHLER IN ZEILE 1000 ODER 1010. 8 'i BEEP 1,0a STOP 

210 REBTORE 

220 LET ADR-60000 

230 READ SUM 

240 LET PR«=0 

250 FOR K=i TO 50 

260 PRINT ADR;" - "i 

270 INPUT "WERTi " | W 

280 IF W>255 THEN 60 TO 270 

290 PRINT W 

300 POKE ADR, ABS W 

310 LET PR=PR+W 

320 LET ADR»ADR+1 

330 NEXT K 

340 IF SUMOPR THEN PRINT FLASH 1;" FEHLER!": BEEP 2,0: LET ADR*ADR-50s 60 TO 

240 

350 INPUT "WEITER LADEN SAVEN ? t H |A* 

360 CLS 

370 IF A**"W" THEN QO TO 230 

380 IF A**"L" THEN PRINT "STARTE DEN RECORDER !."a LOAD "FROQQER"CODE i 60 TO 
230 

390 SA VE "FROGGER" LINE 350s SA VE "FROGGER"C0DE 60O00 , ADR-60000 

400 PRINT "VERIFY."'"WENN EIN FEHLER AUFTRETEN SOLLTESTARTEN SIE DAS PROGRAMM M 
IT GOTO 250.": VERIFY "": VERIFY ""CODE i PRINT "O.K. !" 

420 DATA 4617,2876,2319,2509,4511,4206,3714,2507,2554,2309,2913,4877,6778,4681, 
4930 , 5658 , 4397 , 4368 , 6637 , 80 1 7 , 7258 , 6 1 90 , 6905 , 737 1 , 775 1 , 5624 , 5446 , 5774 , 5038 , 55 1 O , 
5112, 5835 , 6084 , 6773 , 6904 , 5405 , 6739 f 66 1 , 4934 

430 DATA 5543,6340,6841 ,6278,3731 ,6927,5033, 7025,6305,6930,6501 ,7207,7207,6271 , 
9179,6835,4812,4197,5801,8467,6823,4810,7240,8328,7477,5047,6159,5774,5583,5596, 

6246,7135,6747,4279,5803,6032,6897,6133,976 



- 100 108 96 88 9S 64 3 130 130 224 88 224 64 7 

£0814 - 118 110 I 191 BS 131 72 13 158 138 224 89 224 

60028 - 72 15 110 110 1 63 90 63 80 17 140 140 SS 

60042 - 90 96 88 19 150 6 150 1 167 88 12 160 88 192 

60056 - 15 1 185! 88 15 191 88 191 64 5 268 85 298 

60070 - 1 34 89 15 32 89 64 20 1 52 89 15 63 

60084 - B9 63 72 9 1B 322220222 

*0098 - 1 16 200 50 1 232 

60112 - 3 208 7 19 220 5 244 1 255 21 

60126 - 16 B3 005080 22 83 83 

60140 - 67 79 82 69 32 32 76 m 86 69 76 32 32 70 
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60154 - 82 79 71 83 32 32 72 73 71 72 58 22 

60168 - 16 3 17 1 90 69 73 84 1 48 gl 61 61 48 

60182 ~ 61 61 61 46 46 48 48 54 34 54 54 46 46 48 

60196 - 48 54 54 36 36 40 46 48 54 61 61 96 122 122 

60210 - 122 96 122 122 122 92 92 96 96 108 108 103 108 92 

69224 - 92 96 96 106 108 72 72 80 92 96 108 122 122 22 

60238 ~ 2 6 139 131 32 139 134 32 137 134 32 137 134 32 

60252 - 137 134 32 139 131 32 139 134 22 3 6 142 32 32 

60266 ~ 142 137 32 138 133 32 138 32 32 138 32 32 142 32 

60280 - 32 142 137 22 4 6 138 32 32 139 136 32 138 133 

60294 - 32 138 135 32 138 135 32 138 32 32 139 136 22 5 

60308 - 6 138 32 32 138 133 32 134 137 32 134 137 32 134 

60322 - 137 32 142 140 32 138 133 22 7 67 79 80 S9 

60336 - 82 73 71 72 84 32 49 57 56 52 32 32 72 65 

60350 ~ 78 83 32 80 69 84 69 82 32 70 85 78 75 69 

60364 - 22 10 4 83 84 69 85 69 82 B5 78 71 58 22 

60378 * .12 50 22 14 8 60 22 16 4 57 32 109 32 

60392 - 32 32 61 32 46 22 18 8 62 22 20 8 87 22 

60406 - 11 16 80 32 58 32 80 55 85 83 69 22 13 16 

60420 - 84 32 58 32 84 79 78 32 65 78 32 65 85 83 

60434 - 22 15 16 83 32 58 32 83 84 65 82 84 22 18 

60448 - 16 72 73 71 72 83 67 79 82 69 58 22 20 18 

60462 - 17 5 41 196 3 55 38 3 65 122 2 

60476 - 82 88 3 62 88 3 123 196 3 55 

60490 - S2 4 49 3S 3 65 122 2 82 84 2 

60504 - 87 203 2 73 203 2 147 38 3 65 

60518 - 6 24 205 68 14 17 232 234 1 29 205 60 32 

60532 ~ 62 3 33 88 54 51 35 6 10 54 36 35 54 

60546 - 36 35 197 6 5 54 51 35 16 Z51 125 254 36 32 

60560 - 2 46 33 193 16. 232 46 64 54 9 35 124 254 89 

60574 - 32 248 125 254 96 32 243 205 177 236 17 32 i 25 

60588 - 205 177 236 24 8 6 32 54 54 35 16 251 201 205 

60602 - 128 243 205 142 237 6 24 205 106 237 237 75 229 234 

60616 - 205 43 45 205 227 45 6 12 205 106 237 58 220 234 

60630 - 60 6 79 205 43 45 205 227 45 205 229 236 24 

60644 - 36 6 17 205 106 237 58 228 234 79 6 5 254 

60658 - 40 15 254 5 56 2 14 5 62 63 215 13 48 6 

60672 - 16 248 201 62 32 215 16 251 201 33 3 3 34 6 

60686 - 235 58 184 234 111 205 120 237 33 7 7 34 6 235 

GB?m - 46 6 205 120 237 33 7 23 34 6 235 46 7 205 

60714 ~ 120 237 62 5 50 9 235 33 5 7 34 6 235 205 

S072B - 219 237 33 5 25 34 6 235 205 219 237 33 9 2 

60742 - 34 6 235 205 219 237 33 9 20 34 6 235 205 219 

60756 - 237 175 50 11 235 62 3 50 9 235 205 241 237 62 

60770 - 1 50 II 235 205 136 247 201 62 51 50 143 92 62 

60784 * 22 215 62 1 215 120 215 201 17 5 235 1 7 

60798 - 205 60 32 62 33 215 69 62 34 215 16 251 62 35 

60812 - 215 201 33 33 23 34 138 92 34 130 92 33 224 80 

60826 - 34 134 92 62 253 205 1 22 1 4 17 12 235 

60840 - 205 60 32 62 2 205 1 22 33 255 82 34 197 234 

68854 - 33 Z29 82 6 27 229 14 4 54 255 36 13 32 250 

60860 - 225 35 16 243 33 229 90 22 2 6 27 114 lS0 254 

60882 - 22 32 2 22 4 35 16 245 201 17 5 235 1 7 

60896 - 205 60 32 58 185 234 71 62 36 215 62 37 215 

63910 - 16 248 201 17 5 235 1 7 285 60 32 201 237 

60924 - 75 221 234 205 131 37 205 213 45 50 223 234 237 75 

60938 - 22t 234 205 56 37 205 241 43 50 224 Z34 62 2& 215 

60952 - 58 221 234 215 58 222 234 215 58 223 234 230 120 246 

60966 * 4 50 143 92 58 225 234 215 201 62 22 213 58 221 

60980 - 234 215 58 222 234 215 58 223 234 58 143 92 58 224 

60994 - 234 215 201 1 254 247 58 191 234 87 237 120 230 2 

61008 - 186 40 7 50 191 234 183 202 236 238 1 254 251 58 
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61022 
51036 
61000 

61064 
51078 
61092 
61106 
61120 
61134 
61148 
61162 
61176 
61190 
61204 
61218 
61232 
61246 
61260 
61274 
61288 
61302 
61316 
61 330 
61344 
61358 
61372 
61386 
61400 
61414 
61428 
61442 
61456 
61470 
61484 
61498 
61512 
61526 
61540 
61554 
61568 
61582 
61596 
61610 
61624 
61638 
61652 
61666 
61680 
61634 
61708 
S1722 
61736 
61750 
61764 
61778 
61792 
61806 
61820 
61834 
61848 
61862 
61876 



- 192 234 87 237 120 230 2 186 40 6 50 132 234 183 

- 40 94 i 254 239 58 133 234 87 237 120 230 2 186 

- 40 7 50 193 234 183 202 12 239 1 254 233 58 194 

- 234 87 237 120 230 1 186 40 7 50 194 234 183 202 

- 38 239 1 254 223 237 120 203 71 40 9 1 50 

- 11 120 177 32 251 201 1 62 253 219 254 203 

- 79 32 5 62 2 211 254 201 16 241 13 32 238 237 

« 95 230 126 15 246 1 230 7 211 254 24 222 58 221 

- 234 254 21 200 205 47 238 62 2 50 231 234 58. 221 

- 234 60 68 50 221 234 62 91 50 225 234 205 251 237 

- 24 82 58 221 234 254 1 200 205 47 238 62 1 50 

- 231 234 58 221 234 61 61 50 221 234 62 63 50 225 
~ 234 205 251 237 24 50 58 222 234 254 208 205 47 

- 238 58 222 234 61 50 222 234 62 92 50 225 234 205 

- 251 237 24 24 58 222 234 254 31 200 205 47 238 58 

- 222 234 £0 50 222 234 62 64 58 225 234 205 251 237 

- 58 204 234 183 192 62 2 17 128 128 1 5 211 

- 254 29 32 3 238 24 90 16 246 203 42 203 18 13 

- 81 32 238 201 221 126 61 221 119 183 192 58 

- 221 234 221 190 20 32 17 58 222 234 254 31 32 6 

- 62 1 50 199 234 201 60 50 222 234 221 126 1 61 

- 221 119 1 221 126 11 61 221 119 11 221 126 2 221 

- 119 221 126 1 183 40 56 221 126 3 254 1 32- 

- 12 221 126 1 254 8 48 5 62 11 221 119.6 221 

- 110 4 221 102 5 58 185 234 203 39 71 221 126 6 

- 119 35 229 125 221 190 9 32 8 225 221 110 7 221 

- 102 8 229 225 16 233 24 48 237 95 246 20 230 31 

- 221 119 1 221 126 3 183 32 6 60 221 119 3 24 

- 9 175 221 119 3 62 18 221 119 1 62 13 221 119 

- 6 221 126 3 183 32 178 62 9 221 119 6 24 171 

- 221 126 11 183 40 55 221 126 12 183 40 12 221 126 

- 11 254 5 48 5 52 11 221 119 15 221 110 13 221 

- 102 14 58 185 234 203 39 71 221 126 15 119 35 229 

- 125 221 190 9 32 8 225 221 110 7 221 182 8 229 

- 225 16 233 24 48 237 95 246 12 230 31 221 119 11 

- 221 126 12 183 32 6 60 221 119 12 24 9 175 221 

- 119 12 62 8 221 119 11 62 13 221 119 15 221 126 

- 12 183 32 178 62 9 221 119 15 24 171 221 110 16 

- 221 102 17 221 94 18 221 86 19 205 177 240 221 110 

- 4 221 102 5 35 125 221 190 9 32 6 221 110 7 

- 221 102 8 221 117 4 221 116 5 221 110 13 221 102 

- 14 35 125 221 190 9 32 6 221 110 7 221 102 8 

- 221 117 13 221 116 14 201 229 213 225 43 6 8 229 

- 213 26 245 197 1 31 237 184 193 241 18 209 225 
~ 36 20 16 237 209 213 225 43 26 245 1 31 237 

- 184 241 18 201 229 213 225 35 6 8 229 213 26 245 

- 197 1 31 237 176 193 241 18 209 225 36 20 16 

- 237 209 213 Z25 35 26 245 1 31 237 176 241 18 

- 201 58 220 234 254 2 216 58 218 234 183 32 4 205 

- 104 241 201 58 219 234 61 50 219 234 183 192 62 100 

- 50 219 234 62 22 215 62 11 215 58 217 234 215 62 

- 54 50 143 92 62 32 215 62 32 215 58 217 234 254 

- 30 32 13 175 50 218 234 50 217 234 62 100 50 219 

- 234 201 60 50 217 234 71 62 22 215 62 11 215 120 

- 215 62 51 50 143 92 62 38 215 62 39 215 33 60 

- 17 3 205 181 3 201 42 213 234 43 3*fc 213 

- 234 124 181 192 42 215 234 182 110 126 238 15 71 237 

- 106 58 120 32 173 111 16 247 126 230 63 183 126 50 

- 215 234 124 230 15 103 34 213 234 62 1 50 218 234 

- 201 58 206 234 167 202 66 242 254 1 40 56 42 207 

- 234 43 34 207 234 124 181 192 175 50 206 234 62 22 

- 215 175 215 58 285 234 215 62 36 50 143 92 62 32 
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SJS25 m fl 5 JFJF.fi 5 6Z 2Z 215 6Z * 215 Se 205 234 215 

IMSi " !? ?S 50 143 92 6Z 3Z 21s 6Z 3Z 2l5 201 ^? 95 

61913 <- 71 42 120 92 110 102 126 144 71 35 126 128 230 127 

61332 - 6 1 254 25 56 20 £ 8 254 30 56 14 6 15 

61946 - 254 75 56 8 6 22 254 100 56 2 6 29 14 

£llf% ~ 19? 205 131 37 205 213 45 i93 2Ä4 36 192 120 50 205 

Villi " f? 4 ,fi 11 21* J 75 215 lZ0 Z15 ez 32 50 l43 92 62 

füll ~ 21 EP 62 42 21S 62 Z2 215 62 1 215 120 215 62 

62002 - 32 50 143 92 62 43 215 62 44 215 62 2 50 206 

62016 - 234 201 42 209 234 43 34 209 234 124 181 192 42 211 

62030 «* 234 110 102 126 230 10 71 237 106 58 120 92 79 125 

SÜFSä ~ im UI i€ Z45 i24 230 63 103 34 2n 234 *24 230 31 

62059 - 246 7 103 34 209 234 34 207 234 62 1 50 206 234 

HE? * ?Si 23? 75 221 234 205 131 37 205 213 45 71 58 221 

620S6 - 234 254 1 40 44 120 254 9 40 33 58 221 234 254 
62100 - 11 56 7 120 230 7 254 4 32 19 58 223 234 254 

fSiiä ~ ! 48 I2 5B 22! 234 254 U 216 58 224 234 254 32 
62128 ~ 200 62 1 50 199 234 201 58 223 234 254 36 32 243 
62142 - 58 222 234 254 3 48 4 62 1 24 26 254 10 48 
62155 - 4 62 8 24 18 254 17 48 4 62 15 24 10 254 
62170 - 24 48 4 62 22 24 2 62 29 ?l 62 22 215 175 
62184 - 215 120 215 62 116 50 143 92 62 45 215 62 46 215 
62198 - 62 22 215 62 1 215 120 215 62 47 215 62 59 215 
62212 - 1 21 16 237 67 221 234 62 63 50 225 234 205 98 
62226 - 246 205 251 237 205 24 248 58 200 234 60 50 200 234 
62240 - 254 5 192 62 1 50 201 234 221 33 46 236 6 13 
Ulli " ll l J™ 221 102 1 221 126 2 221 86 3 95 221 

»i» ~ 2 5 _i z _ 22 Si 1 « 35 2Z1 35 Z21 229 l97 Z13f Z23 1Z0 254 

62282 - 6 56 8 33 88 3 17 62 24 6 33 203 2 

62296 - 17 73 205 181 3 225 209 205 181 3 193 221 225 

62310 - 16 198 201 58 231 234 183 200 42 226 234 254 1 32 

62324 - 3 35 24 1 43 34 226 234 175 50 231 234 42 226 

62338 - 234 229 6 3 205 106 237 193 205 43 45 205 227 45 

62352 - 201 58 196 234 61 50 196 234 183 192 62 100 50 196 

62366 - 234 42 197 234 126 183 32 15 43 34 197 234 125 254 

62380 ~ 228 32 6 62 1 50 199 234 201 6 4 126 203 39 

f^Slt " ll 9 JF I6 249 ZB1 58t l9S 234 183 200 175 50 199 234 

62408 - 58 228 234 61 50 228 234 205 229 236 205 47 238 62 

62422 •* 8 215 58 223 234 230 248 246 4 50 143 92 62 40 

62436 - 215 33 100 6 108 197 17 2 229 205 181 3 

62450 - 225 6 237 95 79 9 193 16 238 205 47 238 205 

«™ " lt 2 JF~L Zi .J B Z37 S? 2Z1 Z34 62 63 S0 225 234 
ll*7JL * 5 S 2Z f 234 I83 40 7 20S 251 237 205 24 248 201 62 
62492 - 1 50 190 234 6 100 118 1(5 253 201 221 33 110 234 

Hill " 25 11 244 ZZ1 33 11S 234 205 63 244 221 33 126 234 
£525 ~ 20S ß3 244 2Z1 33 134 234 221 126 61 221 119 
62534 - 183 192 221 126 1 221 119 58 221 234 221 190 7 
62548 - 32 3 205 47 238 221 110 3 221 102 4 221 94 5 

fBB " 2Z1 EB B 221 126 z * 83 32 5 205 216 240 24 3 

62576 - 205 177 240 58 221 234 221 190 7 192 205 251 237 201 

62590 - 221 33 96 234 205 137 244 221 33 103 234 221 126 

£_£?2 ~ 5i 2Z1 US 183 192 221 12€ l 221 119 58 221 
62618 - 234 221 190 6 32 16 58 222 234 183 32 6 62 1 

62632 - 50 199 234 201 61 50 222 234 221 110 2 221 102 3 

62646 - 221 94 4 221 86 5 205 216 240 201 205 102 236 205 

fSSSS " 2 51 Z37 2Z1 33 14Z 23* 205 94 239 221 33 163 234 205 
62674 - 94 239 205 38 244 205 126 244 205 153 241 205 255 240 

»£_S " 25 !L 23 ! 20S 1ZI 24Z Z05 19* 243 205 105 243 205 145 
62702 - 243 205 232 245 205 71 246 205 137 246 58 190 234 183 
62716 - 192 24 199 33 61 17 183 252 1 3 237 176 

SÜ23? ~ l 3 J£ B 251 34 54 S2 33 5Z S4S 17 IW 252 1 120 
62744 - 237 176 17 148 253 1 48 237 176 17 148 254 
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6275B - 1 152 8 237 176 33 96 234 17 120 230 1 200 8 

62772 - 237 176 62 2 205 1 22 251 62 2 205 155 34 62 

62786 - 7 50 141 92 6 24 205 68 14 62 4 50 143 92 

62890 - 17 77 235 1 92 205 60 32 62 71 50 143 92 

62814 - 17 169 235 1 35 205 60 32 62 7 50 143 92 

62828 - 17 204 235 1 41 205 60 32 62 6 50 143 92 

62842 - 17 245 235 1 41 205 60 32 62 95 50 143 92 

62S56 ~ 17 30 236 1 16 205 60 32 62 7 50 143 92 

62870 - 237 75 229 234 205 43 45 205 227 45 205 232 245 205 

62084 - 71 246 30 100 I 254 253 237 120 203 79 40 5 29 

6289B - 32 244 24 234 42 229 234 229 58 204 234 245 17 96 

62912 - 234 33 120 230 1 200 237 176 241 50 204 234 225 

62926 - 34 229 234 205 192 244 42 229 234 237 91 226 234 167 

62940 - 237 82 242 54 245 237 83 229 234 195 54 245 58 203 

62954 - 234 61 50 203 234 133 192 58 220 234 230 4 203 39 

62968 - 203 39 71 62 70 144 50 203 234 53 204 234 183 32 

£2932 - 9 1 232 3 i II 120 177 32 251 201 58 202 234 60 

62996 - 50 202 234 254 120 32 5 62 2 50 202 234 230 126 

63010 - 15 95 22 33 16 235 25 94 83 203 43 203 43 

63024 - 123 130 95 83 62 2 1 3 211 254 29 32 3 

63038 - 238 24 90 16 246 13 32 243 201 1 254 251 58 195 

63052 - 234 95 237 120 230 16 187 200 50 195 234 183 200 58 

63066 - 284 234 238 1 50 204 234. 281 33 220 8 229 205 159 

63980 - 243 225 43 229 17 2 285 181 3 62 1 50 231 

63094 - 234 205 105 243 58 199 234 183 40 238 225 205 142 237 

63108 - 175 50 199 234 201 58 201 234 183 200 58 204 234 245 

63122 - 42 226 234 229 42 229 234 229 58 228 234 245 58 228 

63136 - 234 33 120 238 17 96 234 1 200 8 237 176 50 220 

S3150 - 234 241 50 228 234 225 34 229 234 225 34 226 234, 241 

63164 - 58 204 234 58 220 234 68 50 220 234 254 6 32 7 

63178 - 175 50 220 234 195 106 247 ?S 87 203 34 283 34 203 

63192 - 34 203 34 221 33 118 234 6 4 221 126 1 146 221 

63206 - 119 1 221 119 122 17 8 221 25 87 16 237 

63220 - 221 33 96 234 6 2 221 126 1 146 221 119 1 221 

63234 - 119 122 17 7 221 25 87 16 237 221 33 142 

63248 - 234 6 2 221 126 2 146 221 119 2 221 119 221 

63262 - 33 163 234 221 126 2 146 221 119 2 221 119 121 

63276 - 230 4 15 87 58 184 234 130 50 184 234 203 42 58 

63290 - 185 234 146 50 185 234 6 58 220 234 254 3 56 

63304 - 33 32 6 6 3 62 2 24 12 31 283 16 203 39 

63318 - 135 203 32 128 71 121 61 58 187 234 50 189 234 120 

63332 - 50 186 234 50 188 234 225 195 192 244 58 120 92 111 

63346 - 237 95 103 126 172 103 230 63 102 133 172 111 110 126 

63360 - 230 7 201 8 33 186 234 34 133 247 

63374 - 175 50 132 247 62 13 50 131 247 62 1 50 135 247 

63388 - 6 4 197 24 61 205 110 247 42 133 247 78 254 2 

63402 - 48 3 13 24 5 254 4 40 1 12 58 132 247 12.9 

63416 - 50 132 247 254 30 56 31 58 131 247 60 60 50 131 

63430 * 247 58 135 247 238 1 50 135 247 175 58 132 247 42 

63444 - 133 247 35 34 133 247 193 16 193 201 62 22 215 58 

63458 - 131 247 215 58 132 247 215 58 132 247 198 2 50 132 

63472 - 247 205 110 247 230 3 68 60 60 58 143 92 58 135 

63486 - 247 183 32 4 22 93 24 2 22 181 205 .110 247 238 

63580 - 3 293 39 130 245 215 241 69 215 195 161 247 62 22 

63514 - 215 62 13 215 175 50 143 92 215 6 224 197 62 32 

63528 - 215 193 16 249 205 136 247 281 139 247 201 201 31 63 

63542 - 3? 127 127 97 63 31 255 255 225 255 15*255 248 255 

63556 - 248 228 194 6$ 194 194 228 248 223 127 127 255 255 127 

63570 - 127 223 96 192 216 252 252 216 192 96 

63584 - 3 100 152 24 44 32 16 8 8 144 SS 129 66 

63598 - 68 36 36 60 66 129 1 7 

63612 - 7 31 126 250 232 15 222 250 57 221 31 

63626 



- 63 192 160 128 



95 255 254 224 56 124 
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63640 - 

63654 - 

63668 - 

636 82 " 

63696 - 

63710 - 

63724 - 

63738 - 

63752 - 

63766 - 

63760 - 

63794 - 

63808 - 

63822 - 

63836 - 

63850 - 

63864 - 

63378 - 

63892 - 

63906 - 

63920 - 

63934 - 

63948 - 

63962 - 

63976 - 

B39m - 

64904 - 

64018 - 

6403? - 

64046 - 

64060 - 

64074 - 



Jm i? 9 4 2 ^ 6 2 ? * ZS J Z lZl 24 * 254 252 127 127 
111 51 28 15 3 254 254 246 204 56 240 192 

?S l *i 2 S^ Z S? 6 2 m m m B 12 2 * 4 255 255 254 
12 8 60 60 60 60 255 126 60 24 153 165 102 69 

fL 1 !« i! 9 , 66 6? 164 I26 121 121 126 «4 67 66 189 

126 60 60 102 165 153 194 37 126 158 158 126 37 194 

11 11 33 ZW 253 255 68 24 255 255 255 255 255 255 

60 24 31 127 255 56 16 112 136 6 

255 255 28 8 15 17 33 255 255 255 60 24 170 

FJS'J 5 ? 25S 120 48 8 1 3 126 191 255 60 24 

224 80 172 255 255 60 24 255 255 255 255 255 2*5 

60 1 24 240 136 132 255 255 255 60 24 14 17 96 

255 255 56 16 248 254 255 28 8 35 

i 7 5 ??J 5 5J 55 30 12 248 I36 132 »5 2J 35 255 60 24 

Ä/J^S 3 ,! 8 ?.! 5 ?.? 2 t 128 192 l26 253 255 
60 24 16 48 127 255 255 127 48 16 

00000 000000000 
00000000000000 
00 00000000 0000 


00000000000000 
0000000 000 0000 
000000 00000000 
00000-0 00000000 
00000000000000 
00000000000000 
000000 0000 0000 
0000 00 0000000 
0000 0000000000 
000000 000000 
0000000 000000 
0000000 000000 



10 REM PROGRAM« 2 

20 CLEAR 50000s LOAD ""CODE * RANDOMIZE USR 62719 




...j§j m mm m m* 

&! Ä ffi ä&i HlS £& ffli 

.-." ".."'" ~"' ""* TT '_?; T!? ^^ W! *W <8S!» 



0«« EJiJStT» 



LASER 110 - 4 KByte RAM. Dieser „persönliche Computer" eignet sich als Helfer beim Studium, am Arbeitsplatz oder 
bei Analysen und Statistiken. Mit seinen Peripheriegeräten erfüllt er alle Ansprüche an einen Home-Computer. 



52 



Computronic 




Donovan 



Tödliche Strahlen greifen die Stadt an. 



Im Spiel Donovan müssen Sie ver- 
suchen, mit einer Laserkanone töd- 
liche Strahlen abzuwehren. Dazu 
wird die Zieloptik der Kanone auf die 
Spitze der Strahlen gelenkt. Ist die Op- 
tik maximal 10 Bildpunkte von der 
Strahlenspitze entfernt, (abhängig 
vom Schwierigkeitsgrad), kann abge- 
drückt werden. Der Angreifer wird 
zerstört und der Spieler erhält 10 
Punkte. Pro abgeschossenen Strahl er- 
hält man 10 Runden-Punkte. Pro Run- 
de erscheinen 10 Strahlen. Nach jeder 
6. überstandenen Runde erhält man 
einen Bonus. - Die Strahlen zielen im- 
mer auf eine der Städte oder auf ihre 
Laserstation. Hat ein Strahl sein Ziel 
getroffen, ist es vernichtet. Wird die 
Station getroffen, werden Punkte und 
Energieeinheiten abgezogen. Der 



Energievorrat ist begrenzt. Ist die ge- 
samte Energie verbraucht, kann nicht 
mehr geschossen werden. 
Die Steuerung des Spiels erfolgt über 
die Tastatur mit folgenden Tasten: >I< 
hoch, >M< runter, >J< links, >K< rechts. 
Gefeuert wird mit der Taste >A<. 
Gewählt werden kann zwischen 10 
verschiedenen Spielstärken. Außer- 
dem besteht die Möglichkeit, den Ton 
während des Spiels abzustellen. 

Programmablauf: 

Nach dem- Laden erscheint das Me- 

nue. Dort kann man wählen zwischen: 

- Spiel beenden 

- Anleitung lesen 

-. Ton an- oder abstellen 

- Schwierigkeitsgrad verändern 

- Spiel beginnen 



Hat man sich für „Spiel beginnen" ent- 
schieden, wird auf hochauflösende 
Grafik umgeschaltet und das Spielfeld 
aufgebaut. Danach beginnt das eigent- 
liche Spiel. 

Nach jeder überstandenen Welle wird 
rechts unten angezeigt, die wievielte 
Welle jetzt kommt („WAVE"). 
Nach jeder sechsten Welle erhält man 
einen Bonus, angezeigt durch das 
Wort „BONUS" in der rechten unteren 
Ecke. 

Wenn alle sechs Städte vernichtet 
sind, erscheint die Meldung „GAME 
OVER", und nach einer kurzen Pause 
befindet man sich wieder im Menue. 
Zwischendurch ertönen immer wieder 
kleine Melodien. 



1 

3 

4 

5 

6 

7 

8 

9 

10 

20 

30 

40 

50 

60 

70 
80 
90 



DONOVAN * 



REM 

REM "* 

REM "-* 

REM "* 

REM "* 

REM "* 

REM "* 

REM *********************************************************** 



Copyright 1984 by 
NORBERT FAEHRMANN 



GOTO 3100 

REM *** HAUPTPROGRAMM *** 

GOSUB 1090: WAX = WAX +1: IF WAX > 99 THEN WAX = 99 

x = 215:y = isi:hi% = p:p = wax: poke fax, 127: gosub 1830: gosub 1730 

POKE 768,40: POKE 769,100: CALL 770: POKE 768,50: POKE 769,255: CALL 7 
70: FOR I = 1 TO 700: NEXT 
X = 215: Y = 181 :P = HIX: 60SUB 1090 
IF WAX / 6 - INT (WAX / 6> THEN GOSUB 1100 



SOSUB 1730 
100 FOR AN = 1 TO 10 
110 AX = RND (1) * 6 + 1.5: 
120 COX - RND (1) * 6 + 1.5 
130 SYX = RND (1) * 234 + 10 
140 Bl = SYX 

150 ST = STX(AX,2) - SYX 
160 ST = ST / 146 * LEX 
170 LXX = 138: LYX = 140 
180 POKE FAX, 127: XDRAW 1 AT LXX, LYX 
190 FOR Y = 15 TO 160 STEP LEX 
200 POKE 768,100: POKE 769,2: CALL 770 
210 FOR I = 1 TO 3 
220 KBX = PEEK (TAX) 

230 IF KBX < FIX OR KBX > UNX THEN 310 
240 POKE FAX, 127: XDRAW 1 AT LXX, LYX 



IF STX(AX 5 1> = THEN 110 
IF COX = 5 OR COX = 2 OR COX = 4 THEN 120 



260 
270 
280 
290 
300 
310 
320 



IF LXX < 246 THEN LXX = LXX + VIX: GOTO 300 
IF LXX > 11 THEN LXX = LXX - VIX: BOTO 300 
49 THEN LYX = LYX - VIX: GOTO 300 

BOTO 300 



IF LYX > 



IF KBX = REX THEN 

IF KBX = LIX THEN 

IF KBX = OBX THEN 

IF KBX = UNX THEN IF LYX < 141 THEN LYX = LYX + VIX 

IF KBX = FIX THEN 460 

XDRAW i AT LXX, LYX 

NEXT I 

HCOLOR= COX 
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330 
340 
350 
360 
370 
380 
390 

400 

410 



420 
430 
440 
450 
460 
470 
480 
490 
500 

510 
520 
530 

540 



TO 6: IF STX(K,1> THEN 400 



560 
570 
580 
590 
600 
610 
620 



HPLOT SYX, 15 TD B1,Y 
Bl = Bl + ST 
NEXT Y 
SDSUB 740 
FOR K = 1 
NEXT K 
GQTQ 2730 
NEXT AN 

FOR K = i TO 6! IF STX(K,1> THEN X = STX(K,2) - 7:Y = 161: GOSUB 2040 
: POKE 768,(220 - (K * 10) ) : POKE 769,100: CALL 770: P = P + 100 * LEX 
= 60SUB 1730 
NEXT 
LEX = LEX + l: IF LEX > 10 THEN LEX = 10 
FOR I = 1 TO 1000: NEXT : GOTO 40 
REM *** SCHUSS *** 
POKE FAX, 127 
POKE - 16368,0 
IF FUX = THEN 300 
HPLOT 138,159 TO LXX,LYX 

DRAW 5 AT LXX,LYX: FOR J = 60 TO 30 STEP - 2: POKE 768, J: POKE 769,4 
: CALL 770: NEXT ; POKE FAX,0: DRAW 5 AT LXX,LYX: DRAW 1 AT LXX, LYX 
HPLOT LXX,LYX TO 138,159 
HPLOT 138,159 TO LX7.,LYX 

IF ABS (LYX - Y> < 11 - LEX * .3 THEN 560 
FUX = FUX - l: HPLOT FUX + 16,184 TO FUX + 16,186 
GOTO 300 

IF ABS (Bl - LXX) 
GOTO 540 
X = Bl: GOSUB 600 
GOTO 370 

REM *** TREFFER 
POKE FAX, 127 

DRAW 3 AT X,Y: GOSUB 1010: XDRAW 3 AT X,Y: DRAW 4 AT X,Y 
010: XDRAW 4 AT X,Y - 2: DRAW 5 AT X + 3, Y - 2: 



< 11 - LEX * .3 THEN 580 



*** 



630 

640 
650 
660 
670 
680 
69« 
700 
710 
720 
730 
740 
750 
760 

770 

780 
790 
800 

810 
820 
830 

840 
850 
860 

870 
880 



I,Y 
I,Y 
I,Y 



LEX 



+ LEX 



I,Y - 10 



2: GOSUB 1 
GOSUB 1010: XDRAW 5 AT 
X + 3 » Y ~ 2: DRAW 6 AT X - 3, Y: GOSUB 1010: POKE FAX,0: DRAW 6 AT X - 
3,Y 

FOR I = - 10 TO 10 
HPLOT SYX + 1,22 TO Bl 
HPLOT SYX + 1,22 TO Bl 
HPLOT SYX + 1,22 TQ Bl • 
NEXT 
FOR I = - 10 TQ 10 

HPLOT X - I,Y + 10 TO X 

NEXT 
p = p + i @ * LEX - G OSUB 1720 

RETURN 

REM *** STRAHL ERREICHT BODEN *-** 
X = STX(AX,2>:Y = 164 

POKE FAX,0: DRAW 1 AT LXX, LYX 

POKE FAX, 127: DRAW 3 AT X,Y + 2: GOSUB 1030: XDRAW 3 AT X,Y + 2: DRAW 

6 AT X + 2,Y + 2: GOSUB 1030: XDRAW 6 AT X + 2,Y + 2 

DRAW 5 AT X,Y: GOSUB 1030: XDRAW 5 AT X,Y; 

1030: POKE FAX,0: DRAW 7 AT X - 2,Y + 2 

FOR I = - 10 TO 14 

POKE 768,245: POKE 769,4: CALL 770 

HPLOT X - 10, Y - I TO X + 10, Y + I - 4 

NEXT 

FOR I = - 7 TO 9 

POKE 768,245: POKE 769,4: CALL 770 

HPLOT SYX + 1,20 TO Bi + 1,161 

HPLOT Bl 3 161 TO Bl + 1,174 

NEXT 

POKE 768,255: POKE 769,5: CALL 770 

FOR I = 160 TO 174S HPLOT X - 10, I TO X + 14,1 



DRAW 7 AT X - 2, Y + 2: GOSUB 
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890 NEXT 

900 IF AX < 7 THEN 970 

910 GOSLIB 980: P = P - 50 * LEX: SOSUB 1090: IF P < THEN P = 

920 GOSUB 1730: FOR I = 1 TD 200: NEXT : POKE FAX,0 

930 FOR I = I TO 50 - LEX * 4:FU7. = FU7- - l: IF FUX < THEN FU% = 0: GOTO 

960 
940 HPLQT FU% + 16, 184 TO FUX + 16, 186 
95« POKE 768,25 + i: POKE 769,5: CALL 770: NEXT 
960 FOR I = i TO 400: NEXT : GOSUB 980: FÜR I = 1 TO 600: NEXT : GOSUB 10 

20: GOSUB 2250: RETURN 

970 5TX<AX, 1> = 

980 POKE 768,200: POKE 769,100: CALL 770: POKE 768,220: POKE 769,100: CALL 

770: POKE 768,245: POKE 769,200: CALL 770 
990 RETURN 

1000 REM *** SOUNDROUTINEN *** 

1010 FOR J « 30 TO 50: POKE 768, Ji POKE 769,4: CALL 770: NEXT : RETURN 
1020 FOR J = 250 TO 90 STEP - 3: POKE 768, J: POKE 769,5: CALL 770: NEXT 

1030 *FOR J = 160 TO 200 STEP 5: POKE 768, J: POKE 769,8: CALL 770: NEXT : RETURN 

1040 FOR J = 1 TO 23: POKE 768,(255 - TX<J>>: POKE 769, L%(J)fi CALL 770: NEXT 

1050 VoR J - 1 TO 19: POKE 76B,TSX(J>: POKE 769,LSX<J>: CALL 770: NEXT : RETURN 
1060 FOR J = 1 TO 15: POKE 76B,LTX<J>: POKE 769,TTXCJ>: CALL 770: NEXT : RETURN 

1070 FOR I - 120 TO 60 STEP - 3: POKE 768,1: POKE 769,5: CALL 770: NEXT 

: RETURN 
1080 REM *** RECHTEN UNTEREN TEIL LOESCHEN *** 
1090 POKE FA%,0: FOR I = 180 TO 190: HPLOT 270,1 TO 210,1: NEXT S RETURN 

1100 REM *** BONUS **■* 

1110 GOSUB 1090 

1120 X = 215: Y = 181: FOR I = 1 TO 5: POKE FAX,0: GOSUB 1940 

1130 POKE FAX, 127: GOSUB 1940: POKE 768,70: POKE 769,60 - I * 10: CALL 77 

0: NEXT 
1140 FOR I = 1 TO 900= NEXT : FOR I = 1 TO 3: POKE 768,80: POKE 769,100: CALL 
770: NEXT : POKE 768,100: POKE 769,255: CALL 770: FOR I = 1 TO 500: NEXT 

1150 GOSUB 1090 

1160 FOR K = 1 TO 6: IF STX<K,1> = THEN ST%(K, 1) = l:X = STX(K,2> - 7:Y 
= 161: LEX - LEX - l: GOSUB 2040: GOSUB 1070: LEX = LEX + i: BOTO 1180 

1170 NEXT :P = P + LEX * 60 

1180 RETURN 

1190 REM *** ZAHLEN FUER SCORE *** 

1200 FOR I = 181 TO 189 STEP 8: HPLOT X + 2, I TO X + 4, I 

1210 NEXT 

1220 FOR J = 1 TO 5 STEP 4 

1230 FOR I = 182 TO 186 STEP 4: HPLOT X + .J,I TO X + J,I + 2 

1240 NEXT 

1250 NEXT 

1260 RETURN 

1270 HPLOT X + 5,182 TO X + 5,184 

1280 HPLOT X + 5, 1B6 TO X + 5,188 

1290 RETURN 

1300 FOR I = 181 TO 189 STEP 4: HPLOT X + 2,1 TO X + 4,1 

1310 NEXT 

1320 HPLOT X + 5,182 TO X + 5,184 

1330 HPLOT X + 1,186 TO X + 1,188 

1340 RETURN 

1350 FOR I ~ 181 TO 189 STEP 4: HPLOT X + 2, I TO X + 4, I 

1360 NEXT 

1370 HPLOT X + 5,182 TO X + 5,184 

1380 HPLQT X + 5, 186 TO X + 5, 188 

_^________ 55 

Computronic __ ■ ■ ~ 



1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1B00 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 



1,182 TD X 

5,182 TO X 

2.185 TO X 

5.186 TD X 



1,184 

5,184 
4, 185 
5,188 



+ 1,182 TO X + 1,184 
+ 5, 186 TO X + 5, 188 



181 TO 189 STEP 4: HPLOT X + 2, 1 TO X + 4, I 



RETURN 

HPLOT X 

HPLOT X 

HPLOT X 

HPLOT X 

RETURN 

FDR I = 181 TO 189 STEP 4: HPLOT 

NEXT 

HPLOT X 

HPLOT X 

RETURN 

FOR I = 

NEXT 

HPLOT X 

HPLOT X 

HPLOT X 

RETURN 

HPLOT X 

HPLOT X 

HPLOT X 

RETURN 

FOR I 

NEXT 

FOR J 

FOR I 

NEXT 

NEXT 

RETURN 

FOR I 

NEXT 

HPLOT 

HPLOT 

HPLOT 



2, I TO X + 4,1 



1,182 TO 
5,186 TO 
1,186 TÖ 

2.181 TO 

5.182 TO 
5, 186 TO 



1, 184 
5, 188 
1,188 

4,181 
5,184 

5, 188 



= 181 TO 189 STEP 4: HPLOT X + 2,1 TO X + 4,1 



1 TO 5 STEP 4 

182 TO 186 STEP 4; 



HPLOT X + J,I TO X + J,I + 2 



- 181 TO 189 STEP 4: HPLOT X + 2, I TO X + 4, I 



+5,184 
+■ 5,188 

1,184: RETURN 



+ 5, 182 TO 

+ 5, 186 TO 

+ 1, 182 TO 

REM *** PUNKTE PLOTTEN *** 

P* = STR* (P> 

X = 263 - 7 * LEN <P*) 

L =■ VAL C-'MID* (F*, 1,1)) + 1 

POKE FA%,0 

HPLOT X + 1,181 TO X +• 5,181 TO 

HPLOT X + 2, 185 TO X + 4, 185 

POKE FAX, 127: ON L GOSUB 1200,1270,1300,1350,1400,1450,1500,1560,160 
0,1670 

IF LEN (P*) < 2 THEN RETURN 

P* = RISHT* (P*, LEN (P*) - 1) 
REM *** 'WAVE' PLOTTEN *■** 
HPLOT X,Y TO X,Y + 6 



+ 5,189 TO X + 1,189 TO X + 1,181 



60T0 1740 



1900 
1910 
1920 
1930 
1940 
1950 
i960 
1970 
19B0 
1990 
2000 



HPLOT 

HPLOT 
HPLOT 
HPLOT 
HPLOT 
HPLOT 
X + 18, Y 
HPLOT X 
HPLOT X 
RETURN 
REM *** 



1,Y + 
3,Y + 
6,Y + 6 
9,Y + 7 
9,Y + 3 
17, Y TO 
7 TO X 



7 TO X + 
7 TO X + 

TO X + 

TO X + 

TO X + 

X + 17,Y + 6: 
20, Y + 7 



5,Y + 7 

3,Y + 3 

&,Y 

9,Y TO X + 14, Y TO X 

14, Y + 3 

HPLOT X + 21, Y TO 



14, Y + 7 

X + 21 ,Y + 6= HPLOT 



28, Y TO X + 24,Y TO X + 24, Y + 7 TO X + 28, Y + 7 

24, Y + 3 TO X + 27, Y + 3 



BONUS' PLOTTEN *** 



HPLOT X,Y TO X,Y + 7 TO X + 3,Y + 
4,Y + 6 TO X + 4,Y + 4: 
1,Y + 3 TO X + 3,Y +3: 

7,Y TO X + 7,Y + 7 TO X 
14, Y + 7 TO X + 14, Y TO 
21, Y TO X + 21, Y + 7 TD 
32, Y TO X + 28, Y TO X + 



HPLOT 
HPLOT 
HPLOT 
HPLOT 
HPLOT 
HPLOT 



7 

HPLOT X 

HPLOT X+1,YT0X+3,Y 

+ 11,Y+7T0X+11,YT0X+ 

X + 18, Y TO X + 18, Y +- 7 

X + 25, Y + 7 TO X + 25, Y 

28, Y + 4 TO X + 32, Y + 4 TO X 



+ 4,Y + 2 TO X + 4,Y + 1 



7,Y 



32 



56 
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,Y + 7 TO X + 28, Y + 7 

2010 HPLOT X + 38, Y TO X + 38, Y + 5: HPLOT X + 38, Y + 7 

2020 RETURN 

2030 REM *** STADT ZEICHNEN *** 

2040 CDX = ABS (LEX - 5) +1: IF COX = 4 THEN COX = 5 

2050 HCOLOR= COX 

2060 HPLOT X + 7 f Y TQ X + 7,Y + 1 

2070 FOR I =2 TO 3: HPLOT X + 6,Y + I TO X +.8,Y + I 

2080 NEXT 

2090 FOR I M TO 8: HPLOT X + 5,Y + I TD X + 9,Y + I 

2100 NEXT 

2110 FOR I = 9 TO 10= HPLOT X, Y + I TO X + 9, Y + I 

2120 NEXT 

2130 FOR I = 11 TO 13: HPLOT X,Y + I TO X + 14, Y + I 

2140 NEXT 

2150 FOR I = 12 TO 13: HPLOT' X + I,Y + 5 TO X + I,Y + 10 

2160 NEXT 

2170 HPLOT X + 2,Y + 7 

2180 HPLOT X + 1,Y + 8 TO X + 3,Y + 8 

2190 POKE FAX,0: HPLOT X + 2,Y + 10 

2200 HPLOT X + 7,Y + 4 TO X + 7,Y + 5 

2210 FOR I = 11 TO 13 STEP 2: HPLOT X + I,Y + 12 

2220 NEXT 

2230 RETURN 

2240 REM *** LASERBASIS ZEICHNEN *** 

2250 POKE FAX, 127 

2260 HPLOT 138,160 TO 138,162 

2270 HPLOT 139,160 TO 139,162 

2280 FOR I = 163 TO 165 

2290 HPLOT 137,1 TO 140,1 

2300 NEXT 

2310 FOR I = 166 TO 170 

2320 HPLOT 136,1 TO 141,1 

2330 NEXT 

2340 POKE FAX,0: HPLOT 138,166 TO 139,166 

2350 HPLOT 137,167 TO 137,168 

2360 HPLOT 140,167 TO 140,168 

2370 HPLOT 138,169 TO 139,169 

2380 POKE FAX, 127 

2390 FOR I = 131 TO 135: HPLOT 1,175 TO I + 4,171 

2400 NEXT _ „„-,.. 

2410 FOR I = 146 TO 142 STEP - 1: HPLOT 1,175 TO I - 4,171 

2420 NEXT 

2430 RETURN 

2440 REM *** WOLKEN ZEICHNEN *** 

2450 FOR I = 1 TD 5: DRAW C INT < RND (1) * 5) +2) AT X -*- I,Y 

2460 POKE FAX, INT ( RND (1) * 255): NEXT 

2470 POKE FAX, 0'. DRAW 6 AT X - 2, Y 

2480 RETURN 

2490 REM *** ENERGIEBAND ZEICHNEN *** 

2500 POKE FAX, 127 

2510 FOR I = 181 TO 189 STEP 4: HPLOT 10,1 TO 12,1 

2520 NEXT 

2530 HPLOT 9,181 TO 9,189 

2540 HPLOT 15,187 TO 16 + FUX, 187 TO 16 + FUX, 183 TO 15,183 TO 15,187 

2550 POKE FAX, 85 

2560 FOR I - 184 TO 186: HPLOT 16,1 TO 15 + FUX, I 

2570 NEXT 

2580 RETURN 

2590 REM *** 'DQNOVAN' IN 6R0SSCHRIFT PLOTTEN. . . *** 

2600 X = 30: Y = 56 

2610 HCOLQR= FA: FOR J = 1 TO 7 

2620 FOR I = TO 2 

2630 ON SK(J) SOSUB 2840,2860,2890,2910,2940,2960,2980,3000,30^.0 

wj 
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2640 NEXT 

2650 X = X + 30 

2660 NEXT 

2670 RETURN 

2680 REH *** ...UND WIEDER LOESCHEN *** 

2690 POKE FA5i,0: FÜR I = 1 TD 60: HPLOT 30 + 1,54 TQ 30 + 1,78: HPLOT 235 

- 1,54 TO 235 - 1,78: NEXT 
2700 FOR I = 1 TO 16: HPLOT 30,54 + I TO 240,54 + I: HPLOT 30,80 - I TO 2 

40,80 -• IS NEXT 
2710 RETURN 

2720 REM *** »GAME OVER* IN 6RQSSCHRIFT FLOTTEN... * 
2730 X = 60: Y = 48: POKE FAX, 127: FOR J = 1 TD 8 
2740 FOR I = TO 2 

2750 ON SL(J) GQSUB 2840,2860,2890,2910,2940,2960,2980 
2760 NEXT I 

2770 X = X +.40: IF J = 4 THEN X = 60: Y = 88 
2780 NEXT 
2790 GOSUB 1040 

2800 REM *** ...UND NEUES SPIEL *** 
2810 FOR I = 1 TO 6:ST%(I,1) = 1: NEXT :LE7. = 0:WA7. = 0: IF P > = HS THEN 

HS = p:hl = Rl 
2820 FOR I = 1 TO 2000: NEXT : HGR2 : TEXT : GOTO 3180 
2830 REM *** BUCHSTABEN FUER SCHRIFTZUEGE *** 
2840 HPLOT X + 19+ I,Y+ 1 - I TO X+2+ I,Y + 1 - I TO X + 2 + I,Y + 2 

2 - I TO X + 19 + I,Y + 22 - I TO X + 19 + I,Y + 12 - I TO X + 7 + I, 

Y + 12 - I 
2850 RETURN 
2860 HPLOT X + 2 + I,Y + 22 - I TO X + 10 + I,Y + 1 - I TO X + 11 + I,Y + 

1 - I TO X + 19 + I,Y +22-1 
2870 HPLOT X + 6 + I,Y+ 12- I TOX+15+ I,Y+ 12- I 
2880 RETURN 
2890 HPLOT X + 2 + I,Y + 22 - I TO X + 2 + I,Y + 1- I TOX+ 10+ I,Y + 

12- I TOX+ 11 + I,Y + 12 - I TOX+19+ I,Y + 1 - I TOX+19+ I 

,Y + 22 - I 
2900 RETURN 
2910 HPLOT X +19+I,Y+l-ITOX+2+I,Y+l-ITOX+2+I,Y+2 

. 2 - I TO X + 19 + I,Y + 22 - I 
2920 HPLOT X+2+ I,Y+ 12- I TOX+ 15+ I,Y + 12 - I 
2930 RETURN 
2940 HPLOT X+2+ I,Y+ 1 - I T0X+2+ I,Y + 22 - I TO X+ 19+ I,Y + 

22 - I TO X + 19 + I,Y + 1 - I TO X + 2 + I,Y + 1 - I 
2950 RETURN 
2960 HPLOT X +2+ I,Y+ 1 - I TOX+ 10+ I,Y+22- I TOX+ 11 + I,Y+ 

22- ITOX+ 19+I,Y+ 1 -I 
2970 RETURN 
2980 HPLOT X+2+ I,Y+22- I TO X+2+ I,Y+ 1 - I TOX+ 15 + I,Y + 

1 - I TO X + 19 + I,Y +5-IT0X+19+ I,Y +8-IT0X+15+ I,Y 
+ 12 - I TO X + 6 + I,Y + 12 - I TO X + 19 + I,Y + 22 - I 
2990 RETURN 

3000 HPLOT X + 2 + I,Y + 22 - I TO X + 2 + I,Y + 1 - I TO X + 19 + I.Y + 

22 ~ I TO X + 19 + I,Y + 1 - I 
3010 RETURN 

3020 HPLOT X+2+I,Y+l-ITOX+15+I,Y+l-ITOX+19+I,Y+ 
5 - I TO X + 19 + I,Y + 18 - I TO X + 15 + I,Y + 22 - I TO X + 2 + I, 
Y+22~IT0X+2+I,Y+l-I 

3030 RETURN 

3040 REM *** HIGHSCORE DRUCKEN *** 

3050 VTAB 9: HTAB 30: PRINT HS 

3060 HTAB 20: VTAB 13: PRINT LEX 

3070 VTAB 13: HTAB 30: PRINT HL 

3080 RETURN 

3090 REM *** EINLEITUNG *** 

3100 TEXT : HOME : VTAB 3: INVERSE : PRINT " DONOVAN 
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INVERSE : PRINT "N 



3110 NORMAL : VT AB 22: PRINT *' Copyright ,1984 by 

ORBERT FAEHRMANN": NORMAL 
3120 VTAB 7: INVERSE : HTAB 5: PRINT " ESC "5= NORMAL S PRINT " = no Game 

'■: PRINT : INVERSE : HTAB 5: PRINT " S ";: NORMAL : PRINT " = Sound 

n : GOSUB 3260 
3130 PRINT : HTAB 5: INVERSE : PRINT " RET ";: NORMAL : PRINT " - start G 
a«ne"S PRINT : HTAB 5: INVERSE : PRINT "0..-?";: NORMAL : PRINT " - Sp 
eed <"5LEX;")" 



3140 

3150 

3160 
3170 
3180 
3190 
3200 

3210 
3220 



PRINT ; 
tions" 

VTAB 7: 
"LEVEL": 



INVERSE : HTAB 5: PRINT 



> • 



NORMAL ; PRINT " = Instruc 



INVERSE : PRINT "HI-SCORE": VTAB HS HTAB 30: PRINT 



HTAB 30: 

NORMAL 

IF P07. = THEN POX = l: 60SUB 3050: GOSUB 3470 
VTAB 18: HTAB 5: INVERSE S PRINT "ENTER YOUR SELECTION' 
GOSUB 3050 
IF PEEK (TAX) < 
GET A*S IF A* > 
HTAB 19S PRINT 
IF A* = "S" THEN 



12B THEN 3190 
= "0" AND A* < 
' (";LEX3"> 
GOSUB 3260 



NORMAL 



= "9" THEN LEX = VAL (A*> : VTAB 13 



CHR* (27) THEN VTAB 7: 
FOR I = 1 TO 1000: NEXT 



HTAB 13: IN VERSE : 
2 HOME : ENB 

INVERSE : PRINT 



PRINT "NO GAME" 



INSTRUCTIONS": NORMAL 



"on / 



IF A* 
NORMAL 

!F A* = "I" THEN VTAB 15: HTAB 13: 
: FOR I = 1 TO 1000: NEXT : GOTO 3610 
3240 IF A* = CHR* <13) THEN VTAB 11: HTAB 13: FLASH : PRINT "START GAME 

": NORMAL : GOTO 32S0 
3250 GOTO 3190 
3260 VTAB 9: HTAB 19: IF SOX THEN SOX = 0: POKE 770,96: PRINT 

: PRINT "OFF": NORMAL : RETURN 
3270 IF SOX = THEN SOX = IS POKE 770,173: INVERSE : PRINT "ON";: NORMAL 

: PRINT " / off": RETURN 
3280 IF SO% THEN GOSUB 1060: GOTO 3300 
^290 FOR I = 1 TO 1500: NEXT 

3300 Rl = LE7.: VTAB HS HTAB 13: PRINT "Start Game" 
3310 REM *** MACHE TITELBILD *** 
3320 



INVERSE 



HGR2 

GOSUB 2250 

POKE FAX 85 

FOR I =175 TO 179S HPLOT 0,1 TO 279,1 

NEXT 
3370 P = 0SFÜ7. = 148 - (LEX * 7> 
3380 GOSUB 2500 

FÜR X = 7 TO 275 STEP B:Y = 12 + 

NEXT 
3410 Y « 161S FOR J=1T0 6IX= STZ<J,2> - 7; 

GOSUB 1070 
3420 NEXT S IF POX = 2 THEN 3450 
3430 FA = 2: GOSUB 2600: FA = 3: GOSUB 2600: GOSUB 1050: 

3440 POX = 2 

3450 LEX = LEX + 1: GOTO 40: REM *** RUECKSPRUNG INS HAUPTPROGRAMM *** 

3460 REM *** EINLESEN DER DATEN *** 

DIM TX C23> , LX (23) , TSX ( 19) , LSX < 19) , LTX ( 15) , TTX < 15) , STX (7,2) 
FOR I = 28672 TQ 28672 + 285: READ AXS POKE I,AXS NEXT 
POKE 232,0: POKE 233,112: ROT= 0: SCALE= 1 



3330 
3340 
3350 
3360 



3390 
3400 



INT < RND (1) * 6): GOSUB 2450 



GOSUB 2040: IF POX = 2 THEN 



GOSUB 2690 



3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 



FOR 
FOR 
FOR 
FOR 
FOR 
FOR 
FOR 
3570 STX (1,2) 

17: STX (6, 2) 



= 770 TO 790: READ AX: POKE I,AX: NEXT 



TO 23: READ TX(I),LX(I): NEXT 



TO 19S READ TSX(I),LSX(I) 
TO 15: READ LTX ( I ) , TTX ( I ) 
TO 7S READ SK(I)S NEXT 
TO 8: READ SLU): NEXT 

TO 7:stx<i,i> = i: next 

26: STX (2, 2) = 61: STX (3, 2) 

252: STX (7, 2) = 138 



NEXT 

NEXT 



= 96: STX (4, 2) = 182: STX (5, 2) - 2 



3580 TAX = - 16384: REX = 203: LI X = 202: OBX = 20HUNX = 

4: FAX = 228 



205: FIX = 193: VI X = 
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3590 RETURN 

3600 REM *-** SP I ELANLEITUNG *** 

3610 HOME 

3620 PRINT " D O N O V A N" 

3630 PRINT " --=™=== s === == " 

3640 PRINT 

3650 PRINT "Alarmstufe ROT !!! Toedliche Strahlen greifen aus dem Welta 
11 an . Sie sind der letzte Uefaer lebende , der die Mensch-heit vor d 
er totalen Vernichtung retten kann." 
3660 PRINT : PRINT "Zerstoeren Sie die tothringenden Strah- len , bevor s 
le die Erde erreicht haben -Sie koennen die Strahlen vernichten , in 
dem Sie Ihre Zieloptik so nah wie" 
3670 PRINT "moeglich an die Spitze des Strahls len- fcen . Ist die Optik 
beim Schuss maximalzehn Bildpunkte von der Spitze des Strahls en 
tfernt , so wird er zerstoert und Sie erhalten dafuer Punkte," 
3680 VTAB 23: PRINT "Bitte eine Taste druecken !": WAIT - 16-^84,128: POKE 

~ 16368,0: HOME 
3690 HOME : PRINT " D N V A N" 

3700 PRINT " =============« 

3710 PRINT 

3720 PRINT "Die Strahlen zielen immer entweder auf eine der Staedte oder 
die Laserstat ion. Trifft der Strahl auf eine Stadt , wird sie zersto 
ert m Trifft er jedoch auf die Laser Station , werden Ihnen Energie 
und Punkte abgezogen." 
3730 PRINT "Achten Sie besonders auf das Energie- band , denn bei jedem 
Fehlschuss wird wird Ihnen eine Energieeinheit abge- zogen- Ist 
die gesamte Energie ver- braucht , koennen Sie nur" 
3740 PRINT "noch tatenlos zusehen ,wie Ihre Staedte vernichtet werden 
3750 PRINT "Das Spiel ist beendet , wenn alle sechs Staedte vernichtet si 
nd . Nach jeder sechsten Welle erhalten Sie einen Bonus, entweder e 
ine zerstoerte Stadt oder Punkte." 
3760 VTAB 23: PRINT "Bitte eine Taste druecken !": WAIT - 16384,128; POK'E 

- 16368,0: HOME 
3770 PRINT " D N V A N" 



3780 PRINT " =============» 

3790 PRINT 

3800 PRINT "Sie steuern Ihre Zieloptik mit : " 

3810 PRINT 

3820 PRINT " I« 

3830 PRINT "Sie feuern mit 'A* . J K" 

3840 PRINT " M" 

3850 PRINT : PRINT : PRINT "Es stehen Ihnen zehn Schwierigkeitsgradezur V 

erfuegung , von (leicht) bis 9 (schwer) . ": PRINT 

3860 PRINT : PRINT : PRINT : PRINT "Ich wuensche VIEL SPASS !!" 

3870 VTAB 23: PRINT "Bitte eine Taste druecken !": WAIT - 16384,128: PDKE 

- 16368,0: HOME 
3880 IF S0% THEN SO% = 0: GOTO 3100 
3890 SO% = 1: SOTO 3100 
3900 REM *** DATAS FUER- . . *** 
3910 REM ***« . . SHAPES *** 

3920 DATA 7,0,16,0,30,0,44,0,89 ,0,126,0,155,0,225,0 
3930 DATA 41,61,3,32,24,54,63,19,45,54,10,36,37,0 

3940 DATA 28,28,36,12,12,12,21,21, 21,54,30,30,30,6,0 

3950 DATA 56, 36, 63, 42, 54, 21 , 53, 46, 32, 37, 39, 33, 37, 63, 7, 40, 37, 59, 27, 56 , 23, 

23,36,21,18, 18,51,53, 13, 18, 45, 9, 41, 36,33, 33,39 # 4,24, 32, 39,28,59,7,0 
3960 DATA 32, 37, 39, 33, 37, 63, 7, 40, 37, 59, 27, 56, 23, 23, 36, 21 , 18, 18, 51 , 53, 1 

3,18,45,9,41,36,33,33,39,4,24,32,39,28,59,7,0 
3970 DATA 37, 59,27,56,23,23,36,21 , 18, 18,51, 53, 13, 18,45,9,41,36, 33,33, X 

9,4,24,32,39,28,59,7,0 5 

3980 DATA 24, 8, 23, 63, 62, 54, 53, 53, 53, 45, 37, 45, 60, 44, 44, 60, 39, 39, 60, 63, 6 

2,63,43,40,40,56,55,13,1,24,8,40,44,42,46,17,42,62,53,37,17,41,50,27, 

46,53,55,63,46,55,23,59,31,59,63,24,63,36,28,36,33,9,9,10,45,23,53,55 

-.7,0 
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3990 



4000 
4010 

4020 
4030 



4040 
4050 



4060 
4070 

4080 
4090 
4100 
4110 
4120 
4130 



DATA 24, 8, 24, 8, 40, 5, 24, 8, 41 , 22, 41 , 9, 9, 50, 17, 18, 30, 23, 17, 23, 23, 31 , 
19,59,27,7,24,28,31,27,7,24,24,8, 12,1,24,8,24,8,24,8,5,40,21, 18,26,18 
,46, 10,9, 10, 17, 10,33, 24, 8, 32,33,0 

REM ***-., SOUNDROUTINE *** 



DATA 

,3,96 

REM *** 

DATA 



173, 48, 192, 136, 208, 5, 206, 1 , 3, 240, 9, 202, 208, 245, 174,0, 3, 76, 2 



-«-MELODIE 1 *** 

63, 64, 111, 64, 103, 64, 111, 64, 127, 64, 134, 64, 127, 64 , 134, 64, 147, 6 
4,159, 128,134,128,111,128, 134,64, 127,64,111,64,127,64,134,64, 147,64,1 
27, 128,103,128,111,128, 103,128,111,255 

REM ***««. MELODIE 2 *** 

DATA 228,100,228,100,228, 100,171,220, 114,220, 128,100,136,100,152, 100 
, 85, 220, 1 14, 220, 128, 100, 136, 100, 152, 100, 85, 220, 1 14, 220, 128, 100, 136, 10 
0, 128, 100, 152,255 

REM *** --.MELODIE 3 *** 

DATA 120, 100, 125, 100, 120, 100, 125, 100, 120, 100, 160, 100, 135, 100, 150, 10 
0, 180,255,240, 100, 180, 100, 160,255,240, 100, 160, 100, 150,255 

REM ***.- «KOORDINATEN DER SCHRIFTZUEGE *** 

DATA 9,5,8,5,6,2,8 

DATA 1,2,3,4,5,6,4,7 

REM "** <c> 1984 by **" 

REM "Norbert Faehrmann" 

STOP 
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Basic-Konverter 



Das Programm besteht aus einer 
kleinen Assembler-Routine und 
zwei EXEC-Filesu Wird das File mit 
CON.ABAS mit EXEC gestartet, 
verwandelt es ein APPLESOFT- 
Programm in ein INTERBASIC- 
Programm. 

Das File CON.IBAS macht genau das 
Umgekehrte. Die Assembler-Routine 
stellt lediglich fest, in welchem Basic 
sich der Apple im Moment befindet 
und startet dann CON.ABAS bzw. 
CON.IBAS. Man muß also nur die As- 
sembler-Routine CON.START entwe- 
der vom APPLESOFT mit CALL 768 
eingeben, oder durch BRUN 
CON.START von der Diskette laden. 



Bei Speicherstelle $ 300 wird der Bild- 
schirm gelöscht. Die Speicherstellen 
$ 0303 bis $ 03 1 1 schreiben den Hello- 
Text. In den Speicherstellen $ 031 2 bis 
$ 0320 wird das Byte in $ E000 unter- 
sucht. Enthält dieses den Wert $ 4C, 
dann befindet sich der Apple in APP- 
LESOFT. Enthält das Byte $ 20, befin- 
det er sich im INTERBASIC. Abhän- 
gig davon, wird nun nach ASTART 
oder ISTART verzweigt. ASTART 
schreibt dann EXEC CON.-ABAS 
oder ISTART schreibt EXEC CON.- 
ASTART. 

Die beiden EXEC-Files sind im Grun- 
de gleich. Wen'n das File ausgeführt 
wird, fügt es zunächst die Zeile an 
das momentane Programm an. Dann 



wird die Zeile gestartet. Sie öffnet 
das File CON.TEXT und schreibt in 
dieses das Programm-Listing und den 
Befehl: DELETE CON.TEXT. Nun 
wird mittels INT auf INTERBASIC 
und das File CON.TEXT mit EXEC 
gestartet. Dadurch wird das Listing in 
den Speicher geholt, und zuletzt durch 
DELETE CON.TEXT auf der Diskette 
wieder gelöscht. Man befindet sich 
zum Schluß im INTEGERBASIC und 
kann mit LIST sein Programm ausli- 
sten. Anzumerken bleibt noch, daß in 
der Anweisung PRINT „EXEC 
CON.TEXT" ein unsichtbares ctrl-D 
als erstes Zeichen steht. 

Copyright: Andreas Thiele 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

115 

120 

125 

130 

135 

140 



145 

150 
160 
165 
170 
180 
185 
190 



195 
200 
210 



REM DIESES PROBRAMM ERSTELLT ALLE FILES 

DATA 32, 88, 252, 1 62, 0, 189, 72, 3, 240, 8, 9, 128, 32, 69, 3, 232, 208, 243, 169, 76 
DATA 205,0,224,240,8,169,32,205,0,224,240,19,96,162,0,189,141,3,240 
DATA 26, 9, 128, 32, 69, 3, 232, 208, 243, 76, 66, 3, 162, 0, 189, 157, 3, 240, 8, 9 
DATA 128, 32, 69, 3, 232, 208, 243, 76, 3, 224, 108, 54, 0, 13, 12, 13, 13, 32, 66, 65 
DATA 83,73,67,45,67,79,78,86,69,82,84,69,82,13,32,32,67,79,80,89,82 
DATA 73,71,72,84,32,66,89,13,66,89,32,65,78,68,82,69,65,83,32,84,72 
DATA 73,69,76,69,13,32,32,32,49,56,45,48,55,45,49,57,56,52,13,0,13,4 
DATA 69,88,69,67,67,79,78,46,65,66,65,83,13,0,13,4,69,88,69,67,67,79 

DATA 78,46,73,66,65,83,13,0 

FOR I = 768 TO 940: READ X5ü: POKE*I,X7.: NEXT I 

PRINT "SCHREIBE CON.START" 

PR I NT CHR* ( 4 ) ; " BSAVE CON - START , A*300 , L*AD " 

PRINT "SCHREIBE CON.ABAS" 

PRINT CHR* (4)S"0PEN CON.ABAS" 

PRINT CHR* (4)5 M WRITE CON.ABAS" 

PRINT "0?CHR*<4)"; CHR* (34) 5 "OPENCON.TEXT"; 



(34>?"WRITECON.TEXT"5 CHR* (34) 5 ? SLISTi , :?"; 



CHR* ( 34 ) ; " : ?CHR* ( 4 ) " 5 CHR* 
CHR* ( 34 ) 5 " DELETECON . TEX 



T"5 CHR* (34>;":?CHR*(4) H ; CHR* (34) 5 "CLOSECON. TEXT"; CHR* (34>S":END 
«■ 

PRINT "RUN" 
PRINT "INT" 

PRINT "PRINT"; CHR* (34); CHR* (4) ; "EXECCON. TEXT" ; CHR* (34) 
PRINT CHR* (4);"CL0SE CON.ABAS" 
PRINT "SCHREIBE CON.IBAS" 
PRINT CHR* (4)5"OPEN CON.IBAS" 
PRINT CHR* (4)5"WRITE CON.IBAS" 

PRINT "0PRINT M ; CHR* (34)5 CHR* (4) ; "OPENCON.TEXT"; CHR* (34) 5 "SPRINT 
"; CHR* (34)5 CHR* (4) S "WRITECON.TEXT"; CHR* (34) ; " :LIST1 ,32767; PRINT 
"5 CHR* (34); "DELETECON* TEXT"; CHR* (34) ; " : PRINT"; CHR* (34)5 CHR* (4 
>; "CLOSECON. TEXT"; CHR* (34) 3 "SEND 11 
PRINT "RUN" 
PRINT "FP" 

PRINT "?CHR*(4)"5 CHR* (34) ; "EXECCON. TEXT"? CHR* (34) 
PRINT CHR* (4)"CL0SE CON.IBAS" 
230 PRINT "FERTI6" 
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To a land where fruit ^^ and f lowers 

supreme, cofnes. the awesome power of the 

Wildcat to chatlenge their supremacy. 

Wildcat is a sleek styled mobile Computer 
designed for your vehicle, boat or aircraft. It 
looks like an IBM PC™ and is fully Software 
compatible with the Apple II™ product line at a 
list price that would put a smile on the face of the 
most frugal Computer buyer. 

But price isn't everything. All those features that 

would cost you huhdreds ~ 

of dollars extra fr-om our 

competitors, come 

Standard with Wildcat. 

Let's compare some 

ofthese features: 



Apple lle 


Wildcat 


Detachable keyboard 


No 


STD 


Füll numeric Key päd 


Option 


STD 


Füll functions keys 


No 


41 


Built in disk Controller 


No 


STD 


Parallel printer port 


No . 


STD 


RS 232 seriai port 


No 


STD 


Game port ■' 


1 


2 


RGB video out 


Option 


STD 


Composite Video 


STD 


STD 


RF video for TV 


Option 


STD 


cp/m .{-; 


Option 


STD 


Hi Res graphics (6 color) 


STD 


STD 


Low Res graphics (16 color) 


STD 


STD 


64KB memory" 


STD 


STD 


Half high disk drives 


No 


STD 


Converters "for .vehicles, 






boats,.and aircraft 


No 


Option 


Alumrnum carry ing case 


■No 


Option 


List price 


$1940* 


$1099.00* 



"Computer plus. one disk dnve — ~ 

Warning: This equipment is exempt from compliance with FCC lesting 
requirements pursuant 10 47 CFR 15.801 (c) (1f 
Operation of this equipment in a residential area may cause interlerence. 



For more Information on the all new Wildcat, see 
your local Computer dealer or call or write: 

COMPUTER AND 
PERIPHERAL PRODUCTS 

1530 S. Stncrair 
Anaheim, CA'92806 
(714)978-9820 



IBM is the registereji trädemark ot International Business Machines Corp. 
Apple is the recjistererl 'trädemark of Apple Computer. Inc. 
Apple II is the uadeinatk of Apple Compuier. Irre. 
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Fortsetzung von Seite 39 

FORTH-Zahlensystem 

In den letzten Teilen unseres Kurses 
haben wir uns ausschließlich mit dem 
ganzzahligen Zahlensystem beschäf- 
tigt. Wie bekannt, umfaßt dieses Sy- 
stem den Zahlenbereich von -32768 
bis +32767. Obwohl dieser Bereich 
nicht sehr umfangreich ist, reicht er 
doch für viele Anwendungen (z. B. 
Steuerungsaufgaben) völlig aus. Daß 
wir in FORTH auch mit längeren Zah- 
len arbeiten können, zeigt der folgende 
Abschnitt: 

Doppelt lange Zahlen 
Um in FORTH größere Zahlen zu er- 
möglichen, werden zwei normale Inte- 
ger-Zahlen zu einer „Doppelten Zahl" 
zusammengefaßt. Durch diesen Trick 
steht jeder Zahl eine Matrix von vier 
Bytes zur Verfügung. Doppelt lange 
Zahlen umfassen somit den Zahlenbe- 
reich von -1.073741824 bis 
+1073741823. 
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Eine doppelt lange Zahl wird durch 
einen Dezimalpunkt gekennzeichnet. 
Dieser kann an jeder beliebigen Stelle 
sitzen und ist nicht mit dem üblichen 
Komma zu verwechseln, da dieser nur 
zur Kennzeichnung dient. 

Beispiel: 

Die gleiche Zahl verschieden ge- 
schrieben 
1.234567 
12.34567 
123.4567 
1234.567 
12345.67 
123456.7 
1234567. 

Da FORTH eigentlich für Steuerungs- 
aufgaben entwickelt wurde und somit 



nur selten mit doppelt langen Zahlen 
gearbeitet wird, sind nur- wenige Be- 
fehle vereinbart. 

D. (dl d2d3->dl d2) 
Eine doppelt lange Zahl wird ausgege- 
ben. 

12345.67 D. <RETURN> 1234567 OK 
1234.567 D. <RETURN> 1234567 OK 
D+ (dl d2 d3 --> dl d) 
Die Summe von d2 und d3 wird auf 
den Stack gelegt. 

1 2000. 40000. D+ <RETURN> 52000 OK 
90000. 5.000 D+ <RETURN> 95000 OK 
D- (dl d2 d3 --> dl d) 

Die Differenz von d2 und d3 wird auf 
den Stack gelegt. 

50000. 10000. D- <RETURN> 40000 OK 
55000. 44.000 D-<RETURN> 1 1000OK 
D.R (dl d2 d3 n --> dl d2) 

Dieser Befehl entspricht weitgehend 
dem D.-Befehl. Druckt jedoch die Zahl 
rechtsbündig in ein Feld der Weite n. 
Das Feld (Fenster) n beginnt an der 
aktuellen Position des Ausgabegerätes. 
Einen ähnlichen Befehl kennen einige 
Basic-Interpreter unter der Bezeich- 
nung ,PRINT-USING'. Das folgende 
Beispiel zeigt die Leistungsfähigkeit 
dieses Befehles: 

PRINT (6 Zahlen rechtsbündig ausge- 
ben) 

CR 7 D.R 
CR 7 D.R 
CR 7 D.R 
CR 7 D.R 
CR 7 D.R 
CR 7 D.R 

2. 20. 200. 2000. 20000. 200000. 
<RETURN> OK 

PRINT <RETURN> 

200000 

20000 

2000 

200 

20 

2 OK 

DABS (d -> ud) 

Der Absolutwert von d wird auf den 

Stack abgelegt. 

-1234567. DABS <RETURN> 1234567 

OK 

-102. DABS <RETURN> 102 OK 

DMAX (dl d2 d3 --> dl d) 

Die Zahlen d2 und d3 werden vergli- 
chen und durch die größere Zahl er- 
setzt. 
12345. 13400. DMAX D. <RETURN> 

13400 OK 

15000. 14000. DMAX D. <RETURN> 

15000 OK 



DMIN (dl d2 d3 --> dl d) 
Die Zahlen d2 und d3 werden vergli- 
chen und durch die kleinere Zahl er- 
setzt. 

14010. 12000. DMIN D.<RETURN> 
12000 OK 

14050. 55000. DMIN D.<RETURN> 
14050 OK 

Vergleichsbefehle für doppelte Zahlen 

D=(dl d2d3--> dl f) 

Flag wird 1 , wenn d2 gleich d3 ist 

D0= (dl d2 d3 --> dl d2 f) 

Flag wird 1 , wenn d3 gleich ist 

D< (dl d2 d3 --> dl f) 

Flag wird 1, wenn d3 kleiner als d2 ist 

Gemischte Zahlenoperationen 
Bei der Multiplikation von Integer- 
Zahlen entstehen oft Überträge, die 
eine Integer- Zahl nicht mehr fassen 
kann. Es wäre deshalb wünschenswert, 
wenn es einen Befehl gäbe, welcher aus 
einer 16 Bit-Multiplikation ein 32 Bit- 
Ergebnis, also eine doppelt lange Zahl, 
bildet. Genau dieses gestattet der Be- 
fehl M*. 

M*(nln2->dl) 

Aus dem Produkt zweier Integer-Zah- 

len wird eine doppelte Zahl gebildet. 

Beispiele: 

1 00 500 M* D. <RETURN> 50000 OK 
90 500 M* D. <RETURN> 45000 OK 
400 400 M* D. <RETURN> 160000 OK 
Das ganze funktioniert auch umge- 
kehrt. Dividieren wir eine 32 Bit-Zahl 
durch eine 16 Bit-Zahl so erhalten wir 
eine 16 Bit-Integer-Zahl. Auch für die- 
sen Fall gibt es einen Befehl: M/ 
M/(dlnl->nl) 

Eine doppelte Zahl dividiert durch eine 
Integer-Zahl ergibt eine Integer-Zahl. 

Beispiele: 
50000. 20 M/. <RETURN>2500OK 

100000. 50 M/. <RETURN>2000OK 
50000. 25000 M/ . <RETURN> 2 OK 

Zahlen ohne Vorzeichen 
Normalerweise verwendet FQRTH 
zum Abspeichern von Integer-Zahlen 
immer nur 15 Bit. Das 16. Bit kenn- 
zeichnet, welches Vorzeichen vorhan- 
den ist, Plus oder Minus. Eine Integer- 
Zahl kann somit den Bereich von 
-32768 bis 32767 umfassen. Verzich- 
tet man auf das Vorzeichen, so würde 
der Zahlenbereich von bis 65535 
gehen. Diese Möglichkeit bietet der 
Befehl U. 

U. (nl n2 n3 -> nl n2) 
Die Zahl n3 wird ohne Vorzeichen aus- 
gegeben. 
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1000 U. <RETURN> 1000 OK 
3ÜO0O U. <RETURN> 30000 OK 
60001 U. <RETURN> 60001 OK 
-1 ü. <RETURN> 65535 OK 
-'000 U. <RETURN> 64536 OK 
Die normale Ausgabe würde wie folgt 
aussehen: 

-1 . <RETURN> - 1 OK 
-1000 . <RETURN> -1000 OK 

Opeiationeri ohne Vorzeichen 
U* (ul u2 --> ud) 

Zwei vorzeichenlose Zahlen werden 
miteinander multipliziert. Das Ergeb- 
nis wird ebenfalls als vorzeichenlose 
doppelte Zahl abgelegt. 

40000 44000 U* D. <RETURN> 

I760OO0000 OK 

30000 34500 U* D. <RETURN> 

! 035000000 OK 

L7MQD (ud ul --> u2 u3) 

Eine doppelte Zahl wird durch eine 
einfache dividiert. Das Ergebnis und 
der Rest werden als einfache Zahl auf 
den Stack gelegt. 

U/ (ul u2 --> f) 

Rag wird 1 , wenn ul kleiner als u2 ist. 
100 1000 U/ . <RETURN> 1 OK 
1000 100 U/ . <RETURN> OK 

FORTH bietet auch die Möglichkeit 
eine DO-LOOP-Schleife ohne Vorzei- 
chen auszuführen. 

DO (ul u2 --> empty) 

ul gleich Endwert der Schleife und u2 

gleich Anfangs wert der Schleife. 

LOOP (u — > empty) 

u gleich Schrittweite der Schleife. 

Beispiel: 

Test 50000 DO 

CR 

IU. 

50001 /LOOP 

TEST <RETURN> 



5001 

10002 
15003 

20004 
25005 
30006 
35007 
40008 
45009 OK 

Gleitkommazahlen 

Bis jetzt haben wir viele Probleme 
Düne Gleitkommazahlen gelöst. Es ist 
also offensichtlich, daß man sehr oft 
auf die Rechnung in Gleitkommadar- 
stellung verzichten kann. Gleichzeitig 
verzichtet man dabei auf die auftreten- 
den Rundungsfehler, von denen Basic- 



Programmierer „ein Lied singen kön- 
nen". In den wenigen Fällen, wo man 
auf eine Berechnung in Gleitkomma- 
darstellung nicht verzichten kann, 
wird man ein Gleitkommapaket, das 
zu vielen FORTH-Versionen erhält- 
lich ist, hinzuladen. 

Auf eine Darstellung dieser Befehls- 
worte kann in diesem Kurs nicht ein- 
gegangen werden, da es keine Stan- 
darts gibt und somit die Befehle stark 
von einander abweichen. 

Diese sind jedoch in dem jeweiligen 
Manual ausführlich beschrieben. 

Gesamtverzeichnis aller FORTH- 
Befehie: Wir haben nun eine Menge 
über die Sprache FORTH gelernt. Ziel 
dieses Kurses war es, dem Einsteiger 
einen Einblick und erste Programmier- 
kenntnisse zu vermitteln. Für diejeni- 
gen unter Ihnen, die tiefer in die neue 
Sprache eindringen möchten, empfeh- 
len wir am Ende noch einige interes- 
sante Literatur. 

Zum Abschluß unseres FORTH-Kut- 
ses bringen wir noch einmal eine al- 
phabetische Auflistung der wichtig- 
sten Forth-Befehle und deren Aufga- 
be. Je nach FORTH- Version können 
mehr oder weniger Befehle implemen- 
tiert sein. Dies ist aus dem jeweiligen 
Manual zu entnehmen. 

! (n adr — > empty) 

Speichere die 1 6-Bit-Zahl >n< in die 
Adresse >adr<. Vergleichbar mit Poke 
in Basic, jedoch wird hier eine 16-Bit- 
Zahl gepokt. 

!CSP (adr n — > empty) 

Der aktuelle StackPointer wird in die 

User- Variable CSP gerettet. 

# (udl — > ud2) 

Wandlung einer Zahlenstelle. 
#> (ud — >adrn) 

Ende der Formatierung. Auf dem Sta- 
pel bleibt die Adresse der Zeichenket- 
te und die Anzahl der Zeichen. 
#S (udl — > ud2) 

Alle verbleibenden Stellen werden in 
ASCII Zeichen gewandelt. 
(empty — > adr) 

Die Parameter- Feldadresse eines Be- 
fehlswortes oder einer Variablen wird 
auf dem Stack abgelegt. 

< (empty — > empty) 

Kommentarbeginn. Vergleichbar mit 
dem Basic-Befehl REM. 
•& (nl n2 — > n3) 

Das Produkt der Integer-Zahlen nl 
und n2 wird auf dem Stack abgelegt. 
iüf (nl n2 n3 — > n4) 



Der Verhältnis-Faktor n4 wird aus der 
Formel n4 = nl"&n2/n3 errechnet. Das 
Produkt nl^rn2 wird doppelt so lang 
berechnet. 

i*r/MOD (nl n2 n3 — > n4 n5) 
Das gleiche wie der -frZ-Befebl. Jedoch 
wird auch hier der Rest n5 auf den 
Stack gelegt. 
+ (nl n2 — > n3) 

Plus-Befehl! Die Summe aus den Zah- 
len nl und n2 wird auf den Stack ge- 
legt. 

+ ! (n adr — > empty) 

Die Zahl in Speicherstelle 1 wird um 1 
erhöht. 

+- (nl n2 — > n3) 

Das Vorzeichen von n2 wird auf die 
Zahl nl angewandt. Das Ergebnis n3 
wird auf dem Stack abgelegt. 
+LOOP (nl — > empty) 
Das Zahlenparameter der Schleife 
wird um den Wert nl geändert. Der 
vergleichbare Basic-Befehl wäre 
NEXT in Verbindung mit STEP. 

(nl n2 — > n3) 
Minus-Befehl! Die Differenz aus den 
Zahlen nl und n2 wird auf dem Stack 
abgelegt. 

— > (empty — > empty) 
Dieser Befehl wird zum Verbinden 
mehrerer Screens genutzt. Er wird in 
der Regel auf die letzte Zeile des 
Screens gesetzt und bewirkt dadurch, 
daß der Compiler mit dem nächsten 
Screen fortfährt. 
-DUP (nl — > nl) falls nl = 

(nl — > nl nl) falls nl <> 


Die Zahl nl wird mit verglichen. Ist 
diese ungleich, wird sie dupliziert. 
-TRAILING (adr nl — > adr n2) 
Ändert für die Ausgabe von Text die 
Parameter. Das führende Leerzeichen 
wird übersprungen. 

(n — > empty) 
Die 16-Bit-Zahl wird auf dem Schirm 
ausgegeben. Beachtet wird die ge- 
wählte Zahlen-Basis. 
." Beispiel: ." xxxxx" 

Der Text xxxxx wird auf dem Schirm 
ausgegeben. Der vergleichbare Befehl 
wäre PRINT. 

.R (nl n-2 — > empty) 

Die Zahl nl wird rechtsbündig in ei- 
nem Fenster der Breite n2 ausgegeben. 
Der vergleichbare Basic-Befehl 
PRINT-USING. 
/ (nl n2 — > n3) 

Divisions-Befehl! Der Quotient aus 
den Zahlen nl/n2 wird auf dem Stack 
abgelegt. 

/MOD (nl n2 — > n3 n4) 
Das gleiche wie /-Befehl. Jedoch wird 
auch hier der Rest n3 auf dem Stack 
abgelegt. 

ß)ä 2dlese Zahlen in Form häu- 
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fig benutzt werden, sind diese 
Zahlen auch als Befehl defi- 
niert. 

0< (n — > Flag) 

Vergleichsbefehl! Ist die Zahl kleiner 
als 0, also im negativen Bereich, so 
wird das Flag auf 1 ansonsten auf 
gesetzt. 

0= ( n — > Flag) 

Vergleichsbefehl! Ist die Zahl gleich 
so wird das Flag auf 1 ansonsten auf 
gesetzt. 

: (empty — > empty) 

Beginn der Definition eines neuen Be- 
fehles. 

; (empty — > empty) 

Dies ist das Gegenstück zum >":"< 
Befehl. Das Ende einer Definition wird 
gekennzeichnet. 
;S (empty — > empty) 

Ende der Compilierung. Findet der 
fOfiTH-Compiler diesen Befehl vor, so 
beendet er den Compiler- Vorgang 
rechtzeitig. 

< (nl n2 — > Flag) 

Vergleichsbefehl! Ist die Zahl nl klei- 
ner als n2, wird das Flag auf 1 anson- 
sten auf gesetzt. 
>R (nl — > empty) 

Die Zahl n wird zum Return- Stack ge- 
bracht. Mit diesem Befehl sollte sehr 
vorsichtig umgegangen werden, da es 
sonst leicht zum Absturz des Systems 
führen kann. 
? (adr — > empty) 

Der Inhalt der Adresse adr wird auf 
dem Schirm ausgegeben. 
?TERMINAL (empty — > f) 
Die Tastatur wird abgefragt. Ist eine 
Taste gedrückt, so wird das Flag auf 1 
ansonsten auf gesetzt. 
D (adr — > n) 

Der Inhalt der Adresse adr wird auf 
den Stack gelegt. Der vergleichbare 
Basic-Befehl wäre PEEK, jedoch wird 
hier eine 16 Bit-Zahl gelesen. 
ABS (n — > u) 

Der Absolutwert von n wird auf dem 
Stack abgelegt. Mit anderen Worten; 
das Vorzeichen wird abgeschnitten. 
ALLOT (n — > empty) 
)n{ Bytes Platz wird im Wörterbuch 
reserviert. Der Dictionary-Pointer DP 
wird also um n Bytes erhöht. 
AND (nl n2 — > n3) 
Die Zahlen nl und n2 werden logisch 
UND-verknüpft Zu beachten ist, daß 
diese Verknüpfung bitweise vorge- 
nommen wird. 
BASE (n — > n adr) 
Diese Variable enthält die gegenwär- 
tig vereinbarte Zahlenbasis. 
BLOCK (n — > adr) 
Die Speicheradresse welche den Block 
n enthält wird ermittelt und auf den 
Stack gelegt. 



C! (b adr — > empty) 

Die-8 Bit-Zahl b wird in Adresse adr 
übertragen. Der vergleichbare Basic- 
Befehl wäre POKE. 
C, (b — > empty) 

Die-8 Bit-Zahl b wird in den nächsten 
freien Speicherplatz gebracht. Der 
Dictionary-Pointer wird um 1 erhöht. 
CD (adr — > b) 
Die Zahl in Adresse adr wird als 8-Bit- 
Zahl auf dem Stack abgelegt. Das 
High-Byte wird also auf gesetzt. Der 
vergleichbare Basic-Befehl wäre 
PEEK. 

CFA (pfa — > cfa) 
Die Parameterfeldadresse wird in die 
Codefeldadresse umgerechnet. 
COMPILE 

Das folgende Wort wird während der 
Laufzeit in das Wörterbuch eingetra- 
gen. 

CMO VE (adr adr2 n - ->• empty) 

Verschiebt n Byte von Adresse adrl 
nach Adresse adr2. 

CONSTANT (n — > empty) 
Eine Konstante mit dem Wert n wird 
angelegt. Programme, welche zahlrei- 
che Konstanten enthalten, sind in der 
Regel etwas schneller. 
COPY (nl n2 — > empty) 
Das Textfeld nl wird nach Textfeld n2 
übertragen. 

CONTEXT (empty — > adr) 
Diese User- Variable legt die Anfangs- 
adresse des aktuellen Wörterbuches 
auf den Stack. 

COUNT(adrl adr2 n) 

Auf den Stapel wird die Länge und die 
Anfangsadresse eines Textes abgelegt. 
CR 

(empty —> empty) 
Dieser Befehl bewirkt einen Zeilen- 
vorschub mit Wagenrücklauf. 
CREATE (empty — > empty) 
Ist eines der wichtigsten Definitions- 
worte des FORTH-Kernes. Ein Wort 
wird in das Wörterbuch eingetragen 
und die Codefeldadresse wird Parame- 
terfeldadresse des Eintrags. 

CURRENT (empty — > adr) 

Diese Variable enthält die Adresse des 

Wörterbuches, in die nachträgliche 

Definitionen eingetragen werden. 

D+ (dl d2 — > d3) 

Zwei doppelt genaue Zahlen werden 

addiert und das Ergebnis auf dem 

Stack abgelegt. 

D- (dl d2 — > d3) 

Die Differenz aus den beiden doppelt 

genauen Zahlen wird auf dem Stack 

abgelegt. 

D. (d — > empty) 

Eine doppelt genaue Zahl wird auf 

dem Schirm ausgegeben. 

D.R (d n --> empty) 



Die doppelt genaue Zahl d wird 
rechtsbündig in einem n breiten Fen- 
ster ausgegeben. 
D0= (d — > f) 

Vergleichsbefehl! Wenn die doppelt 
genaue Zahl gleich ist, wird das Flag 
auf 1 gesetzt. Ansonsten auf 0. 
D< (dl d2 — > f) 
Vergleichsbefehl! Wenn die doppelt 
genaue Zahl d2 kleiner als dl ist, wird 
das Flag auf 1 , ansonsten auf gesetzt. 
DECIMAL (empty — > empty) 
Die dezimale Betriebsart wird akti- 
viert. 

DO (nl n2 — > empty) 

Eine Schleife wird eröffnet mit dem 
Anfangsparameter n2 und dem End- 
parameter nl. Der vergleichbare Ba- 
sic-Befehl wäre FOR. 
DOES> (empty — > empty) 
Dieses Wort wird in Definitionsworten 
verwendet, es beendet den Teil für die 
Compile-Anweisungen und zeigt den 
Beginn der Laufzeitanweisungen an. 
DROP (n — > empty) 
Die oberste Zahl des Stacks wird ge- 
löscht. 

DUP (nl --> nl nl) 
Die oberste Zahl des Stack' s wird du- 
pliziert. 

EMIT (c — > emp'ty) 
Die oberste Zahl des Stack's wird als 
ASCII-Zeichen auf dem Schirm ausge- 
geben. 

ERASE (adr n — > empty) 
Der Speicher wird ab Adresse adr mit 
n Bytes des Wertes gefüllt. 
EXECUTE (adr — > empty) 
Ein Programm, welches bei der Adres- 
se adr beginnt, wird zur Ausführung 
gebracht. Die Adresse entspricht der 
Codefeldadresse. 
EXPECT (adr n — > empty) 
Eine Anzahl von n Zeichen können an 
Adresse adr eingegeben werden. 
FENCE (empty — > adr) 
Diese Variable enthält die Adresse des 
ersten ungeschützten Wörterbuchein- 
trages. 

FILL (adr n c — > empty) 
Der Speicher ab Adresse adr wird mit 
n Bytes des Wertes c gefüllt. 
FLUSH (empty — > empty) 
Das zuletzt bearbeitete Textfenster 
wird abgespeichert. 
FÖRGET cccc (empty — > empty) 
Alle Definitionen ab dem Wort cccc 
werden gelöscht. 
FORTH (empty — > empty) 
Das Wörterbuch mit der Bezeichnung 
FORTH wird aktiviert. 
HERE (empty — > adr) 
Dieser Befehl bringt die Adresse des 
nächsten freien Speicherplatzes auf 
den Stack. 
HEX (empty — > empty) 



Computronic 




Die Hexadezimale Betriebsart wird 
aktiviert. 

HOLD (c — > empty) 
Dieser Befehl erlaubt das Einfügen ei- 
Ees ASCII-Zeichens in eine Zeichen- 
kette. 

I {empty — > n) 

Dieser Befehl wird innerhalb einer 
Schleife genutzt, um das aktuelle Zah- 
lenparameter auf den Stack zu brin- 
gen. 

IMMEDI ATE empty — > empty) 
Eine Definition wird als unmittelbar 
erklärt und sofort ausgeführt. 
KEY (empty — > c) 
Es wird ein Zeichen von der Tastatur 
eingelesen und als ASCII- Wert auf 
den Stack gelegt. 
LATEST (empty — > adr) 
Diese Variable enthält die Namens- 
feldadresse der letzten Definition, 
LEAVE (empty — > empty) 
Durch diesen Befehl kann eine DO- 
...LOOP Schleife verlassen werden. 
LFA (pfa — > lfa) 
Die Parameterfeldadresse wird in die 
Verbindungsfeldadresse umgerech- 
net. 

LIST (n — > empty) 
Das Textfenster n wird auf dem Schirm 
ausgelistet. 

LITERIAL (n — > empty) 
Bei der Compilierung von n wird vom 
Stack in die Wortdefinition eingefügt. 
LORD (n — > empty) 
Der Compiler beginnt bei Screen n zu 
compilieren. 
M-fr (nl n2 — > dl) 
Die Integer-Zahlen nl und n2 werden 
miteinander multipliziert und das Er- 
gebnis als 32 Bit-Zahl auf den Stack 
gelegt. 

M/ (d nl — > n2) 
Die doppelt genaue Zahl d wird durch 
Zahl nl definiert und das Ergebnis auf 
den Stack gelegt. 
MAX (nl n2 — > n) 
Die größere der beiden obersten Zah- 
len bleibt auf dem Stack. 
MESSAGE (n — > empty) 
Die Meldung n wird auf dem Schirm 
ausgegeben. Dieser Befehl wird vom 
FOß TTf-System zum Ausgeben der 
Fehlermeldungen verwendet. 
MIN (nl n2 — > n) 
Die kleinere der beiden obersten Zah- 
len bleibt auf dem Stack. 
MINUS (n — > -n) 
Die oberste Zahl des Stacks wird nega- 
tiv. 

MOD (nl n2 — > n) 
Der Rest der Division nl durch n2 
-Aird auf dem Stack abgelegt. 
STA (pfa — > nfa) 
Die Parameterfeldadresse wird in die 
Namensfeldadresse umgerechnet. 



NUMMER (adr— > d) 
Eine Zeichenkette, die bei Adresse 
adr+1 beginnt, wird in eine doppelt 
lange Zahl gewandelt. Die Adresse adr 
zeigt dabei auf die Länge der Zeichen- 
kette. 

OR (nl n2 — > n) 
Die Zahlen nl und n2 werden mitein- 
ander durch OR verknüpft. 
OVER (nl n2— > nl) 
Die vorletzte Zahl des Stacks wird du- 
pliziert und auf den Stack gelegt. 
PÄD (empty — > adr) 
Die Adresse des Speichers namens 
PÄD wird auf den Stack gelegt. 
PFA (nfa— > pfa) 
Die Namensfeldadresse wird in die 
Parameterfeldadresse umgerechnet. 
QUIT (empty — > empty) 
Die Laufzeit wird beendet ohne die 
Ausgabe von OK. 
R (empty — > n) 

Die oberste Zahl des RETURN-Stacks 
wird auf den Rechen-Stack gebracht, 
ohne sie auf dem RETURN-Stack zu 
zerstören. 

R> (empty — > n) 
Die oberste Zahl des RETURN-Stacks 
wird auf den Rechen-Stack geholt, 
ROT (nl n2 n3 — > n2 n3 nl) 
Die obersten 3 Zahlen des Stacks wer- 
den um eine Stelle rotiert. 
SO (emply — > adr) 

Diese Variable enthält die Adresse des 
Stackendes. 

SCR (empty — > adr) 
In dieser Variablen wird der zuletzt 
bearbeitete Screen festgehalten. 
SPD (empty — > adr) 
Dieser Befehl legt die Adresse des au- 
genblicklichen TOS auf den Stack. Der 
Befehl selbst wird von dieser Berech- 
nung ausgeschlossen. 
SPACE (empty — > empty) 
Ein SPACE-Zeichen (dezimal 32) wird 
auf dem Schirm ausgegeben. 
SPACES (n — > empty) 
)n{ SPACE-Zeichen werden auf dem 
Schirm ausgegeben. 
SWAP (nl n2— > n2 nl) 
Die beiden obersten Zahlen des Stacks 
werden vertauscht. 
TIP (empty — > adr) 
Diese Variable enthält die Startadres- 
se des Terminal-Input-Puffers. 
TYPE (adr n — > empty) 
Eine Zeichenkette, deren Länge n ist 
und ab adr gespeichert wird, erscheint 
auf dem Schirm. 
U-& (ul u2 — > ud) 
Die beiden vorzeichenlosen 16 Bit- 
Zahlen werden miteinander multipli- 
ziert und das Ergebnis als doppelt ge- 
naue Zahl auf den Stack abgelegt. 
U/ (ud ul — > u2 u3) 

Der Quotient der beiden Zahlen ud 



und ul wird unter u3 und der Rest 
unter u2 auf den Stack gelegt. 
UPDATE (empty — > empty) 
Der zuletzt bearbeitete Screen wird als 
geändert markiert. 
USER (name) (n — > empty) 
Dieser Befehl trägt eine Variable in 
einen vom Benutzer definierten Be- 
reich ein. 

VARIABLE (name) (n — > empty) 
Eine Variable (name) wird angelegt 
und mit dem Wert n geladen. 
VOCABULARY (name) (empty — > 

empty) 

Mit diesem Befehl läßt sich ein neues 
Wörterbuch eröffnen. 
VLIST (empty — > empty) 
Das eingeschaltete Wörterbuch wird 
auf dem Schirm ausgelistet. 
WORD (c — > empty) 
Eine Zeichenfolge wird aus dem Ein- 
gabespeicher (TIB) bis zum Begren- 
zungszeichen c übernommen. 
XOR (nl n2 — > n) 
Die Zahlen nl und n2 werden EXCLU- 
SIV-ODER verknüpft und das Ergeb- 
nis auf dem Stack abgelegt. 
[ (empty — > empty) 

Dieses Zeichen schaltet den Compiler 
aus. 

] (empty — > empty) 

Dieses Zeichen schaltet den Compiler 
ein. 

Weiterführende Literatur: 

STARING FORTH; Leo Brodie; englisch 
Dieses Werk ist sicher eines der be- 
sten FORTH-Bücher, die es auf dem 
Markt gibt. Mit viel Humor und witzi- 
gen Skizzen wird man in die etwas 
schwierige Sprache Forths eingeführt. 
Leider gibt es bis jetzt noch keine 
deutsche Übersetzung. 

FORTH HANDBUCH; E. Flögel; deutsch 
Ein Buch, das zu den wenigen deut- 
schen Büchern zählt, welche sich mit 
Forth beschäftigen. Der Leser wird 
Schritt für Schritt in den umfangrei- 
chen Wortschatz von FORTH einge- 
führt, dabei wird in erster Linie der 
FIG-Forth Standard besprochen. Eini- 
ge kurze Programme runden dieses 
Werk ab. 

DIE PROGRAMMIERSPRACHE 

FORTH; Ronald Zech; deutsch 
In diesem Buch wird die Programmier- 
sprache FORTH streng methodisch 
und umfassend beschrieben. Darüber 
hinaus wird Fundamentales erläutert, 
auf das die Sprache aufgebaut ist. 
Da dieses Werk leider mit sehr vielen 
Fachwörtern umgeht, ist es nicht dem 
Anfänger zu empfehlen. Frank Brall 
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Topprogramm 

Ausgezeichnet von der Redak- 
tion als Top-Programm 
in „Computronic". 
Bewertet wurden Spielidee, 
Bewegungsablauf und Grafik. 

Sie steigen in den Alltag einer Flaschenfabrik 
ein. Dort müssen Sie Bierkisten zusammen- 
stellen. Die Arbeit wird Ihnen aber durch 
zahlreiche Hindernisse erschwert. 




Nach dem Start mit „RUN" erklingt 
eine Melodie. Danach werden die 
Bildnummer und die Schwierigkeits- 
phase angezeigt. Eine Phase besteht 
aus vier Bildern (4 Aufgaben). Nach 
der Anzeige, die nach jedem geschaff- 
ten Bild eingeblendet wird, erscheint 
das Bild Nr. 1. Oben links wird die 
Anzahl der verfügbaren Leben ange- 
zeigt, d. h., am Anfang hat jeder Spie- 
ler drei Leben. Links unten erscheint 
das erste Männchen, welches mit dem 
Joystick gesteuert wird. Der Bild- 
schirmaufbau besteht aus mehreren 
Etagen, die durch Leitern verbunden 
sind. Auf den Etagen befinden sich 
Fließbänder, die Flaschen transportie- 
ren. Die Anzahl der Fließbänder 
nimmt bis zum vierten Bild zu, und ab 
Bild Nr. 2 werden diese teilweise un- 
sichtbar. Außerdem befinden sich 9 
Bierfässerteilchen auf dem Bildschirm, 
die für den Spieler sehr wichtig sind, 
denn sie haben beim Start eines Bildes 
ihre bestimmte Anfangsposition, die 
bei den vier Bildern jeweils unter- 
schiedlich ist. Durch Berühren eines 
Fässerteilchens mit dem Männchen, 
verändert sich die Position dieses Teil- 
chens und die direkt unter ihm liegen- 
den Teilchen. Wie und was durch so 



eine Berührung passiert, ist aus den 
Beispielen 1 und 2 zu entnehmen. Hat 
man alle Bierfässerteile (durch Berüh- 
rung) nach unten transportiert, so er- 
kennt man 3 Bierfässer. Wenn man 
dieses erreicht hat, ist das Bild bzw. 
die Aufgabe erfüllt, und es erscheint 
die Anzeige der Phase und Bildschirm- 
nummer. Danach folgt das nächste 
Bild. Dieses hört sich alles relativ ein- 
fach an, doch es gibt einen Schwach- 
punkt des Männchens. Es verträgt 
keinen Alkohol. Deswegen darf es kei- 
ne auf dem Bildschirm befindlichen 
Flaschen berühren, da sie Alkohol 
enthalten. Dieses kann durch einen 
Sprung verhindert werden (die Steue- 
rung des Männchens ist aus dem Bei- 
spiel 3 zu entnehmen). Eine weitere 
Gefahr ist die Zeit. Oben am Bild- 
schirm erkennt man eine Etage, auf 
dem das Männchen des Spielers sym- 
bolisiert wird. Von rechts her nähert 
sich eine Whiskyflasche. Sollte diese 
zu dem symbolisierten Männchen ge- 
langen, so hat der Spieler ein Leben 
verloren. Da dieses sehr schnell geht, 
hat der Spieler noch eine Chance, 
durch Berühren des Malzbieres, die 
Flasche wieder von vorn (also von 
rechts) starten zu lassen. Das Malzbier 



erscheint an einer bestimmten Posi- 
tion. Wann es erscheint, hängt von 
dem Berühren eines der drei Oberteile 
der Bierfässer ab. Hierzu ein Beispiel: 
das Malzbier ist nicht auf dem Bild, 
aber wenn man jetzt eines der Obertei- 
le berührt, dann erscheint es. Bei 
nochmaliger Berührung verschwindet 
es und bei der nächsten Berührung 
erscheint es wieder. Also ein bestimm- 
ter Rhythmus, das Malzbier muß ein- 
deutig berührt werden. 

Punkte werden beim Versetzen eines 
Faßteiles gegeben oder nach Beendi- 
gung eines Bildes. Die Entfernung der 
Whiskyflasche zum Männchen ist für 
die Höhe der Punkte ausschlagge- 
bend. Die aktuelle Punktzahl wird 
nach Verlust eines Männchens oder 
bei anderen Unterbrechungen ange- 
zeigt, aber nicht während des Spieles. 
Sollte man eine Phase geschafft haben, 
so erhält man ein zusätzliches Leben. 
Sollte man alle Leben verbraucht bzw. 
verspielt haben, so erscheint „GAME- 
OVER". 

Durch Betätigung einer Taste, beginnt 
das Spiel von vorn. Ansonsten ist das 
Programm musikalisch untermalt. 



10 CALL BCREENC2)'» FÖR 1*3 T0 8:> CflLL COLORC 1 ,9, 1 )■ ■ NEXT I 
£0 -CALL CLEAR 

30 DISPLAY RTC 9,9 )■ "ALKOHOL VERBOT" n DISPLAY ATC 11, 14)' "VON" n DISPLAY RTC 13, 1 

0>|"JENS BRRTHE" 

40 CALL MUSIK 

50 CALL KEY<1,K,S>' ■ IF K«18 THEN 60 ELSE CALL KEYC8,K/S>» ! IF S*8 TUEN 50 

60 CALL CLEAR '> '• CALL MRGNIFY<3> 

?0 CALL CHAR<95, ,, 1C3E1C083E1C1C14 ,, ,97, M 01B3800700070F0F ,, ,98, "FFFF80FF00FFFFFF M ,3 
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3j "80r , 000E0P'0E0F0F0" ) 

88 CALL CHRRC 100/ "0F0F0?0700030081 , M01 , "FFFFFFFF00FF00FFM82, "F0F0E8E080C0008" 

1 13 « "FFFFFFFF" ) 
96 CALL CHRRC 104. "0F0F088fl080fl080FM05, "FFFFR2RER2RER2FF", 106« "F0F830B07870B0F" 
,113, "FFFFFFFF") 

106 CRLL CHRRC 128, " 192640405F3F5F5B" , 121 , "B8448204F8F0FEBF" , 122, M 393R'SB9B7B5B1F1 
F", 123, "33B3B3BE8CB0F0F0", 124, "FF81FF81FF81FF81" > 
110 CRLL CHRRC36, »01030F02070301010B07030301010103B0C0C0E0E0C0800080808080000000 

00") 

120 CRLL CHRRC 40, ,, 01830307070383(3 1038303838 18 1810 188C0F840E0C00000R0C08080880000 

88" ) 

130 CRLL CHRRC 60* ,, 03070F0F0F0713130F0707070404040C0080C0C0C0882020C880S080808080 

I C8" > 

• 140 CRLL CHflR<108> M 030203010101010I0608304D4D26100FC040C0808080808060100CB2B264O 

! 8F0"> 

I 158 CALL CHRR<116,"01030F02070381010B0703030306081880C0C0E0E0C08000C8R088808880E 

i 828" > 

? 160 CRLL CHRRC128, ,, 010383070703030103070B0303®28E0880C0F040E0C00000R0C0808080C02 

- 030" ) 

l ; 170 CRLL CHRR<132, ,, 000000000000000000444444EERRRREE000000000ß00080000444444EERRR 

* REE"> 

l 180 CRLL CHRRa36> M 0003070302820202020405050809080780C0E0C0404040404020R82090901 

! 0E8" > 

? 198 CRLL CHfiRC140,"00030i01010i0101010284090908040308E0C0C0484040484020D00808C81 

; @E0" ) 

F 280 IF SOH8 THEN HS«8C 

! 210 M=2 i i BI,SC*8 ' « PH=1 

I 220 BI"BI+1 "' ' IF BI>4 THEN 230 ELSE 240 

f 230 M*M+1 ' ' PH=PH+1 = * BI«1 

: 248 CRLL CLERK n CRLL DELSPRITECRLD- DISPLAY RT< 11, 11 )' "BILD » m jBI - DISPLAY 

i RTC 13, 18)' "PHASE = ";PH " FÜR 1 = 1 TO 300 " NEXT I 

250 Q1-INK-2-PH/2)" Q2"INTC4+PH/3>» * Q3-INTC-7-PH)' ; Q4=INTC~3~PH/2)< * Q3»INTC 

5+PH/3)= = ßS«IMTC3+PH/3)= = Q7«INTC2+PH/3) 

?m CRLL CLERR « ' OH BI GÜSUB 320,410,548,678 

278 DISPLRY RTC 24, 1>=" HI -SCORE = "; HS " DISPLRY RTC 24, 17)' "SCORE = " '> SC 

288 CRLL HCHRRC 2, 2, 95, fl) 

290 CRLL 8PRITEC #28, 128,16, 1,40, #21, 108, 13, 1, 256,0,-l)' ' CRLL 8PRITEC#1,40, 16, 15 

3,S)" CALL HCHRRC 3, 6, 113,27) 

308 GOTO 818 

318 ! BILD 1 

328 CRLL COLORC 9, 11, 1,18, 11, 1,1 1,16, 1,12, 5,1) 

330 CRLL HCHRR<1, 1,32,8)= » RC 1 ),BC 1 ),CC 1 )*8 * = RC2>,BC2),Cc;2)=>i3 n AC3),BC3),CC 

3)=18 «• Rfl=*7 ii BB=17 - CC-27 

340 CRLL HCHflRC 9, 1,113,32)- CRLL HCHflRC 14, 1, 113,32 >■ = CRLL HCHflRC 19, 1, 113,32)= < 

CRLL HCHRRC22, 1,113,2) 
350 CRLL VCHRRC9,2, 124,5)= = CRLL VCHRRC 14, 12, 124,5)' ■ CRLL VCHRRC 14,22, 124,5)=' 
CRLL VCHRRC 9, 3 1,124,5) 

360 CRLL VCHRRC 14,3, 124,5)- CALL. VCHRRC 19,2, 124,3)- CRLL VCHRRC 14,32, 124, 5) 
378 CRLL 8PRITEC #2, 148, 14, 129, 60, #3, 148, 14, 129, 188, #4, 136, 4, 89, 88, #5, 136, 4, 89, 28 

8) 

380 CRLL SPRITE* #6, 132, 7, 49, 40, #7, 132, 7, 49, 168) 

390 CRLL M0TI0M #2, 0,Q1, #3, 0,Q1)' = CRLL f1OTIONC#4,0,G2,#5,0,Q2)- CALL M0TI"0H<#6 

,8,Q3,#7,8,Q3> = • RETURN 

408 ! BILD 2 

410 CRLL COLÖRC 11,8,1, 12, 5, 1 ) 

420RC1>«6 - CC1)*5 ■< HC2)*11 - ■ CC2>"10 - RC3)=*i6 " C<3)«15 

430 CRLL HCHRRC 1 , 1 , 32 , 8 > - CALL HCHflRC 7,2,113,9)- CRLL HCHflRC 6 , 1 4 ;. 1 1 3 , 7 ) = « CRLL 

HCHRRC6,26, 113,7)' ' CRLL HCHRRC 8, 28, 113,5) 
440 CRLL HCHflRC 9, 16, 113,4)- CRLL HCHflRC 11 .• II , 113,4)== CRLL HCHflRC 11,24, 113,9)= = 

CRLL HCHRRC 12,4, 113,6) 
450 CRLL HCHRRC 14,1, 113,22)= ' CRLL HCHRRC 16,25. 113,4)= = CRLL HCHRRC 16,31, 113,2)= 
• CALL HCHRRC 17,6, 113,4) 
468 CRLL HCHflRC 19,2, 113*5)' ' CRLL HCHRRC 1.9.-9, 113,23)" CALL HCHflRC 22* 1, 113,3)= ' 

I-r^outronic . 6 
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CRLL HCHRR* 4, 2, 113,3) 

470 CALL VCHAR*4,3,124,3)" CALL VCHRR*7,2, 124, 12>< > CRLL VCHRR* 7,4, 124,5)'. CRL 

L VCHAR* 7, 11 , 124, 4 ) " CHLL VCHARC 6, 14, 124, 5 > 

480 CALL VCHRR*6,19,124,3): . CRLL VCHAR* 6,20, 124,2)" CALL VCHAR* 8,24, 124,3) . . C 

ALL VCHfiR* 12, 9, 124, 2 > > ■ CRLL VCHRR* 1 1 , 32, 124, 5 ) 

490 CALL VCHRRC 14,21, 124,5)" CALL VCHAR* 16,31, 124,3 )" CRLL VCHARU7.6, 124,2)" 

CRLL VCHRRU7, 9, 124,2)" CRLL VCHRR* 19,3, 124,3) 
500 CALL VCHRRC.6, 31, 124,5)" CRLL SPRITE* #2, 140, 14, 129, 60, #3, 140, 14, 129, 188- #4, 1 
36, 4, 89, 86, #5, 136,4,89,208) 

510 CALL SPRITE* #6, 132,7,33, 70, #7, 132,7,65, 198)" CALL riüTIÖN*#6,0,PH+5,#7,0,Q3) 
520 CALL MOTIÖNC#2,0,ß4,#3,0,Ö4,#4,0,Q5,#5,0,Q5)" RETURN 
530 f BILD 3 

540 CALL COLOR* 11,5, 1,12, 14,1) 

550 C*l>*6 " C*2)«il " C*3)*16 

560 CRLL HCHAR* 1,1,32,8)" CRLL HCHRR/7, 1, 113,9)" CRLL HCHRR<7, 13, 113)" CALL H 

CHflR< 6,21,113)" CALL HCHAR* 8, 22,113) 

570 CRLL HCHRR*9, 16, 113,5)" CRLL HCHRR< 12,4, 113,6)" CRLL HCHRR* 12, 14, 113)" CR 

LL HCHRR* 14, 15. 113,7)" CALL HCHRR* 12,26, 113,3? 

580 CRLL HCHRR* 17, 1,113,8)" CRLL HCHRRC 17,26, 113.7)" CRLL HCHRR* 19,9, 113,4)" 

CRLL HCHRR* 19, 16.113,3)" CALL HCHRR* 19,22, U3, 4) 

590 CRLL HCHAR< 14,25, 113)" CALL HCHRR*22. 1, 113,3)" CRLL VCHAR<7,2, 124, 10)" CR 

LL VCHRR* 17. 3. 124,5)" CRLL VCHRR* 12,4, 124,5) 

600 CALL VCHRR*7,9,124,5)" CALL VCHRR*17,9, 124,2)" CRLL VCHRRC7, 14, 124,5)" CA 

LL VCHRRU2, 15,124,2)'* CRLL VCHAR(6,20, 124,3) 

610 CRLL VCHAR*9,21, 124,3)" CRLL VCHRR<6, 22, 124,2)" CRLL VCHRR* 12,25, 124,2 )" 

CALL VCHAR* 17, 25, 124, 2 ) " CALL VCHfiR* 12, 29, 124, 5 > 

620 CALL HCHRR* 7, 26, 113,7)" CRLL HCHRR* 12,21, 113.2)" CRLL VCHRR* 7, 31, 124, 10) 

630 CRLL SPRITE* #2, 148, 15, 129, 60,#3, 148, 15, 113, 188, #4, 136, 4, 73, 80, #5, 132, 7, 33, 19 
8) 

640 CALL SPRITE* #6, 136, 4, 89, 208, #7,132, 7, 49,70) 

650 CALL MOTIOM*#2,0,ßl,#3,0.G6,#4,0,Q2,#5,8,Q7)" CRLL M0TI0N*#6,0,öl,#7,0.Q4)i 

' RETURN 

660 ? BILD 4 

670 CRLL COLOR* 11,13,1,12,7,1) 

680 H*l>*7 " B*l)*5 " C*l)»4 " H*2)«12 " B*2)*18 " C*2)*9 " R*3>al7 " B<3 

>«15 • ' C*3)»14 i ■ CC*26 

690 CRLL HCHRRU, 1,32.8)" CALL HCHRR* 5, 24, 113,4)" CRLL HCHRR*5,32, 113)" CRLL 

HCHRRC 6, 16,113,3)" CRLL HCHRRC 8,4, 113, 12) 

700 CRLL HCHRR*8,19,113)" CRLL HCHRR*8,22, 113,2)" CRLL HCHRR* 10,24, 113,4)" CR 

LL HCHRRC 10,31, 113)" CRLL HCHRR* 11, 12, 113) 

710 CALL HCHRR* 13,4, 113,7)" CRLL HCHRR* 14, 18, 1 13,6)" CRLL HCHRR* 15, 1 1, 1 13)" C 

ALL HCHRR* 15, 25, 113,3)" CALL HCHRR* 16,17,113) 

720 CRLL HCHRR* 18, 1,113,3)" CRLL HCHRRC 18,6, 113,3)" CRLL HCHRRC 18, 12, 113)" CR 

LL HCHRR* 18, 16,113,3)" CRLL HCHRR? 18,22, 113.3) 

ll? f C ^Lä?^i l f^ B L{ l3 ^l': CRLL HCHRR*20, 1,113,2)" CRLL HCHRR* 22, 1 , 113,3) " 

CRLL VCHRRC 18,2, 124,2)" CRLL VCHRRC 20, 3, 124,2) 

740 CRLL VCHAR*8,3,I24,10>" CRLL VCHfiR* 11, 10, 124,2)" CRLL VCHRR* 11, 1 1, 124,4)" 

CRLL VCHRR*8, 12, 124.3)" CRLL VCHRR* 15, 12, 124,3) 

750 CALL VCHRRC6, 15, 124,2)" CRLL VCHRRC 16, 16, 124.2)" CRLL VCHRR* 16, 1-8, 124,2)' . 

CRLL VCHRR* 6, 19, 124,2)" CRLL VCHfiR* 11,20, 124,3) 

760 CALL VCHRRC5.23, 124,3)" CRLL VCHRR* 10,23, 124,4)" CRLL VCHRR* 8, 24, 124,2 >" 
CRLL VCHRR* 15,24, 124,3)" CRLL VCHRR* 15,28. 124,3) 

7?ß CALL VCHRRC 5, 31, 124,5)" CRLL VCHRRC 10,32, 124,8)" CRLL HCHRR* 11, 16, 113,4) 
788 CRLL SPRITE* #2, 140, 14, 121 , 60, #3, 140, 14, 97, 188, #4, 136, 4, 81 , 80, #5, 136, 4, 65, 198 

790 CALL SPRITE* #6, 132, 7, 41, 70, #7, 132, 7, 17, 208) 

800 CRLL MOTIOH*#2,0,Q1,#3,0,06,#4,0,Q2,#5,0,Q2)" CRLL MOTION* #6, 0, ftl ,#7,0,Q4)< 

i RETURH 

810 ON ERROR 1480 

820 ! AUFSTELLUNG DER FRESSERTEILE 

830 FOR 1*1 TO 3 •■ . IF 1*1 THEN 840 ELSE IF 1*2 THEN 850 ELSE 868 

840 P1«A*1)" P2-R*2)" P3*fi*3>" P4*Flfl " GOTO 878 

850 P1*B<1>" P2-BC2)" P3«BC3>" P4*BB " GOTO 870 

70 — — — — — — — _____ — __ , , , : Computronic 
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868 P1«C<1>" P2-CCZ)" P3*C<3)" P4«CC " GOTO 870 

870 DISPLRY HT<Pl..P4-3)SIZEC3>• ,, 4bc ,, " DISPLAY HT<P2,P4~3)SI2E<3)> "hlJ" " DISP 

LRY RKP3,P4~3>SIZE<3)'"äef M " NEXT I 

880 ! STEUERRUNG 

890 G03UB 1050 ii CALL PÖSITIÖH<#I,Y,X>' * CRLL JÖYST<1,XX,YY)= ' CRLL KEY<i,K,S> 

900 IF YYO0 AND XXO0 THEN X2=0 

919 IF KO-1 THEN X1«XX ■' IF XX*4 THEN 1010 ELSE IF XX»-4 THEN 1030 ELSE 1000 

920 IF YYO0 OR XXO0 THEN 950 

930 IF XI —4 THEN CRLL PHTTERN< # 1 , 36 )ELSE CRLL PHTTERN<#1,40> 

940 GOTO 890 

950 GOSUB 1050 ■■ IF XX«-4 THEN X*X-8 ■« X1*XX >■ CRLL PHTTERN<#1, 116>ELSE IF XX 

=4 THEN X*X+S ii X1*XX " CRLL PRTTERNC«/ 12BJEL8E £"70 

960 GOTO 1060 

970 IF YY*4 THEN 1150 ELSE IF YY=-4 THEN 1160 

980 GOTO 1060 

930 ! SPRUENGE 

1000 FOR 1=14 TO «14 STEP -2 " CRLL MÖTIÖNC#1,-I,0>" FOR II»1 TO 8 »■ NEXT II 

•■'. NEXT I ■■ CRLL MOTION<#1,0,0)" GOTO 1060 

1010 CRLL FRTTERN<# 1,128)" FOR 1*12 TO -12 STEP -2 n CRLL f10TIÖN< #1.-1,3)«« GO 

SUB 1050 ii FOR 11=1 TO 8 ■= NEXT II " ■ NEXT I " X«X+32 

1020 CALL MOTIÖNC#l,0,0)" GOTO 1060 

1030 CRLL PRTTERN<#1,116)" FOR 1=12 TO -12 STEP -2 «» CRLL MOTIOW #1,-1, -5 >■ < G 

08UB 1050 ■! FOR 11*1 TO 8 m NEXT II ' ' NEXT I '•' X«X~32 

1040 CRLL MaTION<#i,0,0)" GOTO 1060 

1050 CRLL CÖINCCRLL,CF)" IF CF«-1 THEN 1480 " RETURN 

1060 flE-INT«X+10V8>» ' IF RE>32 THEN X*X-8 ELSE IF RE<2 THEN X*X+8 

1070 G08UB 1850 " CRLL LOCflTEC#l,Y,X>" Y«INT<CY+15V8): • X=INT< <X+10V8>* * CRL 

L rrHRR£ Y , 'Ä> G ) 

1080 IF G«98 OR G-101 OR G~105 THEN 1230 ELSE IF G=122 OR G*123 THEN 1460 

1090 CRLL GCHHRtY+l,X,G)> ' IF G«113 OR G*124 THEN 890 ELSE 1480 

1100 1F-L-0 THEN L«l ELSE L*8 

1110 ON L+l GOTO 1120,1130 

1120 CRLL HCHRRU2,22-BI,120>' ' CRLL HCHRR< 12,23-BI, 121)' ' CRLL HCHARa3,22-BI, 1 

22 ) " CRLL HCHRRC 13, 23-BI , 123 ) : * RETURH 

1130 CRLL HCHRRC 12, 22~BI,32,2)" CALL HCHRR< 13,22-81,32,2)' ' RETURN 

1140 CRLL HCHRRC4, 16,32,2)' ' CRLL HCHRRC5, 16,32,2 )' ■ RETURN 

1150 Y-YH3 •' YB»INT<<Y+15V6>*» XB*INT<<X+10 V8 >• '• CRLL GCHRR<YB,XB,G) " IF GO 

124 THEN Y-Y+8 i = GOTO 890 ELSE 1170 

1168 Y*Y+8 «* YY»INK<Y+15V8>«« XX«INT(<;X+10)/8 )' ' CRLL GCHRRC YY,XX,G) «i IF GO 

124 THEN Y«Y-8 • • GOTO 890 

1170 GOSUB 1050 ■■ CALL PflTTERNC#l,60>« « CRLL LOCRTECil, Y,X)' ■ CRLL P08ITI0N<#1, 

Y,X5" YB*INT<CY+15V8)" XB»INT«X+10VB> 

1188 CRLL GCHRRCVB,XB,G)' ' IF GOI24 THEN 890 ELSE CRLL GCHRR< YB+l,XB,G)' •• IF G< 

>124 THEN 890 

119*0 ! STEUERRUNG 2 

1200 CRLL POSITIONC #1,Y,X)" CRLL JOYSTO , XX , YY > = ■ IF YY*4 THEN Y«Y-8 ELSE IF YY 

=-4 THEN Y-Y+8 

1210 GOTO 1170 

1228 ! SETZEN DER FRESSERTEILE 

1230 IF X*flfl THEN 1240 ELSE IF X«BB THEN 1259 ELSE 1260 



1240 XYsR(l) 
1250 XY*B< 1 ) 
1260 XY«C< 1 ) 



« YX»RC2) 
« YX«B<2> 
» YX*C<2) 



RJWffl ' ' GOTO 1270 

flX-BB ' ' GOTO 1270 

RXaCC 

1270 CRLL SOUND< 100,345,0)= ' IF G*98 THEN 1280 ELSE IF G*105 THEN 1388 ELSE 1420 
1280 GOSUB 1100 ** IF Y-10«XY THEN 1290 ELSE IF Y~5*XY THEN 1320 ELSE 1340 
129B-SOBC+W <■ CRLL HCHRR< Y,X-1,32,3)" DISPLRY RK28,RX-3>SIZE<3)' "*bc" 
1300 CRLL GCHRRC20,7,G)i » CRLL GCHRRC20, 17, HI )- CRLL GC?HRRC20,27,GV>" IF G=32 
OR HI*32 OR GV*32 THEN 1430 

1310 GOSUB 1450 " CRLL P0SITI0NC#21,Y,X)- 8C«SC+CX*BI*3*PH)' ■ GOTO 220 
1320 SC«SC+50 '« CRLL HCHflRCY/X- 1,32,3 )" DISPLRY K\X Y+5,X-3)S I ZE<3>« "Abc" 
1330 DISPLRY RTC21,RX*3)SIZEC3)! M hiJ" " GOTO 1430 

1340 CRLL GCHRR<Y+5,X,G)' • CRLL GCHRR< Y+10,X,GH>< > IF G«32 RND GH-32 THEN 1350 E 
LSE 1360 _^ 
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' GO 

' ' D 

' GO 



TO 5 i4i BSC+50 " CRLL HCHRR < Y ^"i'32'3> i! DISPLAY- flT<Y+3,X-3>SIZE<3>. »*bc'' 

111 ?TO^^ *™ '« 

TÖ 9 i430 rSD<f50 ?! CRLL HCHflR<v ' x ^'32'3> ,i DISPLAY AT<21,AX-3>SIZE<3>."hiJ" 

IJiS lr E S + S " 2I SPLHY BT<22'»«-3>8IZEO>.»d*f " GOTO 1438 

1439 GOTO 896 " HCHHR<Y,X-1,32,3>. . DISPLAY HK22,flX-3>SIZE<3>. «def » 

1440 { PUNKTRN2EICE 

- 5 NEXT*f™*ffiTURN "* *"* T0 LEM < SC * >: ' CRLL HCHHR<24,25+I,HSC<SEG*:SC*, 1,1 >>> 

J468 CALL SPRITE« #21, 108. 13,1/256,0,-1).. GOTO 890 
1470 ! AUSWERTUNG, SPIELENDE? 

1516 DISPLAY HT< 12,75. "G H H E - ü V E R" 

!ll0.??234*10™ 'nIxtV 1 " CRLL SOUNK250 ' I *11G'0'-S<6>" CALL SOUND« 250,330,0 

1540 SUB L m5Iik ' K ' S) ' ' IF SB0 THEN 153B ELSE Zm 

^S, llkllh: Ig; ig; IS; !£' 131 ' I31 •• 165 ' 165 ' 196 ' 196 > 175 < l?5 ' ^ ™ , »* 19 

i960 RESTORE 1550 n Dlfl ZC26)'« FOR 1*1 TO 2G m READ »15. 1 NEXT T 

™FIL^SOU^1000?131?0> 0)I, ■ F0R . I " Z1 T0 26 *' CRLL SOUND<220,ZCI>.,0) !! HEXT I 
1590 SUBEND 




Das Spiel ist auf dem TI 99/41 in TI BASIC geschrieben und wird mit- 
tels Joystick 1 gesteuert. Das Programm wurde so gestaltet, daß es 
auch in Extended BASIC ohne Änderungen läuft. 



In Extended BASIC läuft das Pro- 
gramm jedoch fast doppelt so 
schnell als in TI BASIC. X-BASIC- 
Besitzer sollten das Programm 
auch eintippen. Es lohnt sich! Cave 
man zeichnet sich besonders durch 
die hervorragende High Resoluti- 
on Grafik aus. 

Schwer hatten es die Menschen in der 
Steinzeit, denn sie mußten sich ihr Es- 
sen bitter erkämpfen. Leo Neandertal 
ist nun einer dieser Menschen, der 
seine Familie ernähren muß. 
Leo hat die Aufgabe, dem Saurier Rex 
die Eier zu stehlen und diese Eier in 
den unterirdischen Höhlen zu lagern. 



Freilich hat der Saurier Rex etwas ge- 
gen Leos Unterfangen und versucht 
mit allen Mitteln, Leo Neandertal am 
Diebstahl der Eier zu hindern. 
Doch nun zum eigentlichen Spiel: 
Tippen Sie das Programm ab, oder la- 
den Sie dieses von Cassette oder Dis- 
kette ein. 

Starten Sie das Programm jetzt mit 
<RUN>, und das Titelbild erscheint, 
Sie haben jetzt die Möglichkeit, zwi- 
schen 8 Schwierigkeitsstufen zu wäh- 
len, wobei 1 die kleinste Schwierigkeit 
und 8 die größte Schwierigkeit ist. Die 
Einstellung der Schwierigkeit erfolgt 
mittels Joystick und wird zu Pro- 
grammbeginn vom Rechner selbst er- 



klärt. 

Nachdem das Spielbild erschienen ist, 
ertönt die ,Cave-man'-Fanfare. Das ist 
das Zeichen, um die Schwierigkeit 
mittels Joystick zu wählen und da- 
nach den Aktionsknopf zu drücken, 
um das Spiel zu beginnen. 
Leo Neandertal steht links im Bild un- 
ter seiner Hütte. Rechts im Bild ist der 
Sauner Rex zu sehen, welcher immer 
wieder den Kopf neigt und Feuer 
speiht. Steuern Sie Leo mittels des 
Joysticks nach rechts, bis Sie den Sau- 
rier Rex erreicht haben. Leo wird sich 
jetzt automatisch nach links umdre- 
hen, und das Ei des Sauriers erscheint 
vor Leo. Bewegen Sie den Joystick 
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jetzt nach links, um Leo zusammen mit 
ufern Ei in die Hütte zurückzuführen, 
ÄEsiit Leo das Ei in die Höhlen werfen 

Snd sie jedoch im Bereich des Säu- 
mers vorsichtig, da dieser Feuer 
apeiht. Wenn Leo Neandertal von die- 
sem Feuer erwischt wird, so verliert er 
«in Leben, und das Spiel ist zu Ende. 
Leo hat jedoch eine Waffe gegen den 
Saurier Rex: seinen selbstgezimmer- 
ten Steinzeithammer. Leo kann diesen 
Hammer mitnehmen und diesen dem 
Saurier an den Kopf werfen, wodurch 
Rex für kurze Zeit betäubt wird. Dann 
gjnn Leo ungehindert das Ei stehlen. 
Zu Spielbeginn, stehen Leo 3 Hämmer 
xnr Verfügung. 

Wenn Leo die Absicht hat, sich mit 
einem Hammer auf den Weg zu Rex zu 
machen, so muß er in seiner Hütte 
stehen und der Aktionsknopf muß ge- 
drückt werden. Leo wendet sich jetzt 
«fem Saurier zu, und der Hammer er- 
scheint vor Leo. Sobald Leo den Ham- 
mer jedoch genommen hat, kann er 



nur noch Richtung Saurier gehen, aber 
nicht mehr zur Hütte zurück. 
Will Leo jetzt den Hammer werfen, so 
ist wiederum der Aktionsknopf zu 
drücken. Es empfiehlt sich jedoch, 
schon während des Fluges des Ham- 
mers weiter in Richtung Saurier zu 
gehen, da die Ohnmacht nur kurz an- 
hält. 

Trifft der Hammer den Saurier am 
Kopf, so sieht der gute Rex jetzt Stern- 
chen. Wenn der Hammer jedoch nicht 
trifft oder Leo den Saurier erreicht hat, 
ohne den Hammer zu werfen, so wird 
ein Hammer abgezogen. Wenn kein 
Hammer mehr zur Verfügung steht, so 
ist das Spiel beendet. 

Sobald Leo sein Leben verloren hat, 
ertönt ein fürchterlicher Todesschrei 
unseres armen Leos. Danach ertönt 
die r Cave~man' -Fanfare, und Sie kön- 
nen durch Druck auf den Aktions- 
knopf das Spiel neu beginnen. 
Wenn Leo das Ei gestohlen hat, so 
kann er nur noch Richtung Hütte ge- 
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TI 99'4 Fi + JDY8ICK 
ProörarorosP räche ! 

T I BASIC 



by TromicÄOft 
V.Becke-r 



REM ************************** 
REM * CflVE MAN 

REM *- 
REM * 
REM * 
REM * 

REM * 

REM * <c> 1984 
REM * 

REM ************************** 
REM 
REM 

CALL CLERR 
CALL SCREEH<2) 
FOR 1=1 TO 14 
CRLL CÜL0R<I,2,1> 
HEXT 1 
GOSUB 3330 
3476 



hen und nicht mehr in die Richtung 
des Sauriers. 
Schwierigkeitssteigerung : 
Die anfänglich gewählte Schwierig- 
keitsstufe steigert sich nach jeweils 1 1 
gesammelten Eiern. 
Wenn es Ihnen gelingt, die gesamte 
Höhle mit Eiern zu füllen (22 Eier), so 
bekommen Sie einen Bonushammer 
(maximal können 6 Hämmer angezeigt 
werden). 
Punktwertung: 

Sie erhalten für jedes gesammelte Ei 
lOmal Schwierigkeitsstufe Punkte. 
Gelingt es Ihnen, die gesamte Höhle 
mit Eiern zu füllen, so werden Ihnen 
neben dem Bonushammer zusätzlich 
lOOOmal der augenblicklichen 
Schwierigkeit Punkte gutgeschrieben. 
Nachdem das Spiel zu Ende ist, kön- 
nen Sie durch Druck auf den Aktions - 
knöpf ein neues Spiel beginnen. 
Tips zum Eintippen: 
Extended-BASIC-Besitzer sollten zur 
Eingabeerleichterung das Programm 
am TI BASIC -Modus eintippen, da die 
aufeinanderfolgenden Doppelpunkte 
in den Print-Anweisungen sonst 
als Multi-Statement-Seperatoren vom 
Rechner verarbeitet werden könnten. 
Beim Spielablauf sollte die <ALPHA 
LOCK> -Taste nicht eingerastet wer- 
den, da sonst die Joystickabfrage nicht 
richtig funktioniert. 
Wir wünschen Ihnen ein ERRORfreies 
Eintippen und viel Spaß beim Spiel ! 
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Prtv 
■b exxd 



•b Prtv 



Prtv 



ar 



eac e-xxxxd 



d e-xxd *-b exxxhjxxxxxd 



GOSUB 

RU«1 

P=Ö 

RH«3 

SE=0 

HF=e 

RE«.0 

PRIHt 

PR1NT 

exxxxd . ._ 

PRIHT " h J xxx i V. xxxxxxxx l -nxxxxxxh J xd i k xxxxxxxxxxxxxmoxx xxxx i k xxd 

PRIHT l 'f9f9f9ff9f'&9f99f9f9f9ff9f9f9" 

FOR 1=1 TO 4 • ■ 

PRIHT 

HEXT I 

PRINT " XZZZZC' 1 '" Y"«" Y"'" Y"*" Y"-"\3\ 

PRIHT "VVÜ TRSRRSSSRSSRRRRSR8RRSRVVWU 
PGPQQPPPGPQQPVV" • 
440 DRTH 2, 16, 2, Z* 13, 13, 11, 18. 5, 5, 15, 5, 9.11 



ic" 



\\\ \ v 



TVVVWPÖQPPPQPQQ 
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450 RESTORE 440 
460 FOR 1*1 TO 14 
470 READ C 

480 CALL CGL0R<I,C,2> 
490 NEXT I 

580 CALL HCHHRCI3,4,94,RH> 

510 GOSUB 2470 

520 G08ÜB 2550 

530 8*8 

540 GOSUB 7*50 

550 GOSUB 2809 

560 GOSUB 3209 

570 CALL VCHARC 19,26,40) 

580 STV»1 

590 FOR LI*1 Tö 9-RU 

600 CALL J0Y8TCI,X,V) 

«10 CHLL KEYC1,T,U) 

620 IF CT*1S)THEN 1690 

630 IF HF=2 THEN 2010 

640 X=X^4+2 

650 ON X GOTO 820,660,980 

€>m IF <S>23)*CFI=1>THEN 1900 

670 NEXT LI 

680 IF 8B>0 THEN 2310 

69fd 8TV«STV+1 

700 IF 8TV>4 THEN 710 ELSE 720 

710 8TV*1 

720 ON STV GOSUB 2550,2619,2670,2750 

730 IF <S>23)*CFI*DTHEN 1900 

740 GOTO 590 

750 CALL HCHRRC 24, 1,78,64) 

?6t5 CALL VCHARC 1,31,78,96) 

??& CALL C0L0RC3,2,13) 

760 CALL COLÖRC 4,2,13) 

790 GOSUB 2990 

800 GOSUB 3050 

810 RETURN 

820 IF HFO0 THEN 660 

830. IF CS*7)*CSE=1>THEN 1300 

840 IF 5=7 THEN 660 

850 IF S£*l THEN 910 

860 GOSUB 2940 

870 S*S-1 

S80 GOSUB 2870 

990 IF SE*i THEN 940 

900 GOTO 660 

918 CALL VCHARC 1 9, PE, 32) 

920 CALL SDUNDC-i 0,26 1,0) 

930 GOTO 860 

940 PE=S-1 

950 CALL VCHARa9,PE,40) 

960 CALL SOUNDC -10, 440,0) 

970 goto see 

Sm IF SE=1 THEN &6& 
990 IF S*25 THEN 1060 
1000 IF HF=i THEN 1150 
1010 GOSUB 2940 
1020 8«S+1 

1030 IF HF=1 THEN 1180 
1040 GOSUB 2800 

1050 goto eee 

1060 8E«I 

1070 GOSUB 2940 

1080 GOSUB 2870 

1 090 CALL VCHflR< 1 9 , 26 , 32 ) 

1100 CALL 80UNDC -18, 261,0) 

1118 PE«S-1 

1120 CALL HCHARC19,PE,40) 

1130 CALL SOUND-C -10, 440,0) 

1140 GOTÖ 66B 



1 1 50 CALL HCHRR< 1 8 , HP , 32 ) 

1160 CALL SOUNDC -10,698,0) 

1170 GOTO 1010 

1180 HP«S+1 

1190 IF HP>24 THEN 1200 ELSE 1260 

1200 CALL VCHAR<13,3+AH,32) 

1210 CALL 8OUNrX-10, 110,5,112,5,114,5, 

1220 AHsAH-i 

1230 IF AH«0 THEN 1900 

1240 HF«0 

1250 GOTO 1040 

1260 HP*S+1 

1270 CALL VCHRRC18,HP,94) 

1289 CALL SOUNDC -10, 880,0) 

1298 GOTO 1040 

1380 FOR Z*19 TO 21 

1318 CALL VCHRRCZ,6,32) 

1328 CALL SOUNDC -5,261, 0> 

1330 CALL VCHRRCZ+1,6,40* 

1340 CALL SOUND<-5,440,0) 

1350 CALL SOUND« -5, 1046,0) 

136© NEXT Z 

1370 FOR 2=6 TO 26-AE 

1380 CALL VCHRRC22,Z,32) 

1390 CALL SOUNDC -5,26 1,8) 

1408 CALL VCHRRC22,Z+1,48) 

1410 CALL SOUNDC -5, 440,0) 

1420 CALL SÖUNDC-5,523,0> 

1430 NEXT Z 

144Ö SE«<3 

1458 AE=AE+t 

1460 P«P+10*RU 

1470 GOSUB 2998 

1488 GOSUB 1520 

1498 CALL VCHARC 19, 26, 40) 

1500 CALL SOUNDC -18, 448,0) 

1510 GOTO 660 

1520 IF HE«11 THEN 1640 

1530 IF RE=22 THEN 1550 

1540 RETURN 

1550 AH— RH+1 

1568 IF RH>6 THEN 1570 ELSE 1580 

1570 fiH-S 

1588 CALL HCHRRC 13, 4, 94, AH) 

1590 GOSUB 3200 

1600 P=P+1000*RU 

1610 GOSUB 2990 

1620 CALL HCHRRC 22, 6, 32, 22) 

1630 RE«0 

1640 RUaRU+1 

1650 IF RU>8 THEN 1660 ELSE 1670 

1660 RU=S 

1670 GOSUB 3290 

1680 RETURN 

1690 IF C8E«1)+<HF»2?THEN 640 

1700 IF HF*1 THEN' 1800 

1710 IF CHF*0)*C5<9)THEN 1730 

1720 GOTO 640 

1730 GOSUB 2940 

1748 GOSUB 2800 

1750 HF*1 

1760 HP*S+1 

1778 CALL VCHARC 18, HF' 94) 

1780 CALL 8OUND<-10,880,0> 

1790 GÖTÖ 640 

1808 IF S<8 THEN 640 

1810 FW*CI2/C9-RU))/8 

1820 HF*2 

1830 CALL VCHRRC18,HP,32> 

1840 CALL SOUNDC-10,698,0) 
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1 MT^-xj- -i 


lNcr EAAS / 


UiySTte i r/^rw / 


«- — - — iz™~*vr&i 


! 1850 SH»1 


2558 REM Saurier KöPf ■Seräde 




! 1860 FH=18-SH 


2568 CRLL VCHRRC 16, 26,68) 




1 1870 CRLL VCHRRC FH, HP, 94 > 


2570 CRLL VCHRRC 17, 26, 69) 




i 1889 CRLL SOUNDC -10, 880,9) 


2588 CRLL VCHRRC 16,27,78) 




1 1899 GOTO 640 


2598 CRLL VCHRRC 17, 27, 71) 




1900 FOR lall 00 TO 500 STEP -10 


2600 RETURN 




11910 CRLL SÖUNDC-100, 1,0, 1-2,0, 1+2,0) 


2618 REM Saurier Kofrf Seneiöt 




1920 HEXT I 


2620 CRLL VCHRRC 16, 26, 64) 




1930 GOSUB 3280 


2638 CRLL VCHRRC 17,26,65) 




1 1949 CRLL KEYC1,T,U5 


2648 CALL VCHRRC 16, 27, 66) 




! 1950 IF U«6 THEH 1940 


2658 CRLL VCHRRC 17, 27, 67) 




! i960 CRLL CLERR 


2660 RETURN 




1 1970 FOR 1*1 TO 14 


2670 REM Feuer des Saurier 




| 1980 CRLL C0L0RU,2,1) 


2688 FI=1 




f 1990 HEXT I 


2698 CRLL VCHRRC 18,24, 132) 




; 2800 GOTO 290 


2788 CRLL VCHRRC 19, 24, 133) 




1 2010 CRLL VCHRRCFH,HP,32) 


2710 CRLL VCHRRC 18, 25, 134) 




1 2029 CRLL SÖUNDC -18, 698,0) 


2728 CALL VCHRRU9,25,135) 




J 2030 IF FH=ll THEN 2040 ELSE 2050 


2730 CRLL SOUHDC -10, 245, 8, 246,0, 247, 0,~5,E 


) 


'■ 2040 8H=-SH 


2748 RETURN 




1 2050 FH=FH-SH 


2758 REM Feuer loescheri 




l 2060 HP*HP+FW 


2760 FI »8 




* 2070 CRLL VCHRRC FH, HP, 94) 


2778 CRLL VCHRRC 18, 24, 32, 2) 




h 2080 CRLL SOUHDC -10, 880,0) 


2730 CRLL VCHRRC 18, 25, 32, 2) 




% 2090 IF CHP>2S)*CFH>15)THEN 2220 


2790 RETURN 




:l 2100 IF HP>27 THEH 2130 


2800 REM Cave Main Ynäch rechts 




\ 2110 IF FHM8 THEN 2130 


2810 CRLL VCHRRC 18,3,128) 




1 2120 GOTO 640 


2828 CRLL VCHRRC 19, S, 129) 




:! 2130 CRLL VCHRRC FH, HP, 32) 


2830 CRLL VCHRRC 17, S, 137) 




• 2140 CRLL SOUHDC- 10, 698,0) 


2848 CRLL VCHRRC 18,3-1,138) 




2150 CRLL VCHRRU3,3+RH,32) 


2850 CRLL SOUHDC -10, 523,0'' 




! 2160 CRLL 50UNDC- 10, 110,5,112,5, 114,5,-7,8) 


2868 RETURN 




, 2170 CRLL VCHRRC 19, 26,40) 


2878 REM Cäve Mati Aach titikä 




2ise rh=hh~i 


2880 CRLL VCHRRC 18, S, 138) 




2198 IF RH=8 THEH 1900 


2890 CALL VCHRRC 19,3, 131) 




2280 HF=0 


2980 CALL VCHRRC 17, S, 139) 




2210 GOTO 649 


2910 CALL VCHRRU3,S+1,136) 




2220 HF=0 


2928 CRLL SÖUNDC-10,523,8) 




2230 Fl =8 


2938 RETURN 




2240 SB=6 


2948 REM Cave Main töeschem 




2258 CRLL VCHRRC FH, HP, 32) 


2950 CRLL VCHRRC 17,8,32,3) 




2268 CRLL SOIMX-10, 698,0) 


2960 CRLL HCHRRC 18,3-1,32,3) 




2.270 GOSUB 2750 


2970 CRLL SOUHDC -10, 349,0? 




2280 GOSUB 2610 


2980 RETURN 




?290 3TV«2 


S990 P$=STR*CP) 




2300 GOTO 640 


3080 FOR LG«1 TO LENCP*) 




2318 CRLL HCHRRC15,2S,32,2) 


3010 PR*RSCC SEGSICPS, LG, 1 ) ) 




2328 STS*STS+1 


3020 CRLL HCHHRC1,30~LENCPS'>+LG,PR) 




2330 IF STS>2 THEN 2340 ELSE 2358 


3030 NEXT LG 




2340 STS=1 


3040 RETURN 




2350 ON ST8 GOTO 2408,2438 


3850 CALL VCHRRC 18, 7,R5CCSTR*CRU)>) 




2360 SB*Sß-l 


3068 GOSUB- 3280 




2370 IF SB=0 THEH 2380 ELSE 740 


3878 CRLL JÖYSTC1,X,Y) 




2380 CALL HCHRRC15,26,32,2) 


3880 XF CX=0)*CY»8)THEN 3130 




2398 GOTO 748 


3090 RU=RU+1 




2488 CRLL HCHRRC.15,26,140,2) 


3180 IF RU>8 THEN 3110 ELSE 3120 




2418 CRLL SÖLNX-10, 1396,8) 


3110 RU-1 




2428 GOTO 2368 


3120 CALL VCHRRC18,7,RSCCSTR*CRU))> 




2430 CRLL VCHRRC 15, 26, 141) 


3130 FOR VERZ-1 TO 10 




2448 CRLL VCHRRC 15,27, 143) 


3140 CRLL KEYC1,T,U) 




2458 CRLL SOUND* -18, 1046,8) 


3158 IF T=18 THEN 3180 




2468 GOTO 2360 


3160 HEXT VERZ 




2478 REM Saurier KorPüä 


3170 GOTO 3070 - 




2488 CRLL VCHRRC 18, 27, 72) 


3180 CRLL VCHRRC 18, 7, 32) 




2490 CALL VCHRRC 19,27,73) 


3198 RETURN 




-25B0 CRLL VCHRR< 18,28,74) 


3200 CALL SÖUNDC 200, 523, 0,659,0) 




2510 CRLL VCHRR< 19,28,75) 


3210 CRLL SOUHDC 108, 391 , 8 > 




2528 CRLL VCHRRC 18,29,76) 


3220 CRLL SÖUNDC 100, 440, ) 




2530 CRLL VCHRRC 19, 29, 77) 


3230 CRLL SOUNDC 280, 523,0) 




2540 RETURN 


3240 CRLL SOUNDC 289, 587,0) 
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3258 CRLL SGUf« 200, 523,0) ~ ■ 

3260 CRLL 8GUNDC200,329,0,39i,0) 
3278 CRLL 80UND< 200, 39 1,0,523,0) 
3280 RETURM 

3290 CRLL SQUNDC 200, 391, 0,523, 0,659, 8) 
3300 CRLL SOUNDC 200, 440, 0,523, 8, 698,0) 
3310 CRLL 80UND< 280, 391, 0,523, 0,659,0) 
3320 RETURN 

3330 PRIHT " C R V E M R K » = ■• •• 

3340 PR I NT " Sch'w i er i 9 k e i t s war, l < " » : " Dr ueck e ro t en Rk t i of i sk noP' f . Wart e b i & F a/nf a 

re ertoent. " 

3350 PRINT "Bewege Joystick 1 so lanöe, bis die 9ewueriscftte" 

3360 PR J. NT " Seh w i er i 9k e i t i n 9r uenen Feld u n ter der Hue t t e erscheint." 

3370 PRINT "Lasse dann Joystick los und druecke erneut RktionsknoPf . " • ■ •■ 

3380 PR I NT "1 - kleinste Schw ieriflkeit 8 - §r oess te Schw i er i 9k * i *. " •• ' ; " f* 1 

984 by Tronicsoft" 

3390 CRLL CHRRC64,* , 3C4299R1R199423C M ) 

3400 CRLL 8CREEMC4) 

3410 GOS'UB 3200 

3420 CRLL KEY<1,T,U) 

3439 IF U«0 THEN 3420 

3440 CRLL 8CREEN<2> 
3458 CRLL CLERR 
3460 RETURN 

3470 REM Grafik umbeleSen 

3480 DRTR ,001010101010001 , 00282828 , 0023287C287C2828 , 0038545038 1 45438 , 0060640R 1 
204C0C , 0020505020544834 
3490 DRTR 880808 1 , 000C IE 1 E3F3F3F 1 E , 0020 1 0080808 1 02 , 000028 1 07C 1 028 , 9080 1 1 07C 1 1 , 

000000000030102, 000000007C 

3500 DRTR 000000000800303 , 00090408 1 0294 , 00 1 824242424 1 8 , 0008 1 808080808 . W 1 8240408 

103C, 00182408042418, 00282828380898 ' " 

3510 DRTR 003C2838842418.« 80182838242418, 883C840818181, 88182418242418, 001824241CA 
418, 0000303000303, 0000303000301 02 

3520 DRTR 0008 102040201 008, 0000007C007C, 00201 0080408 102, 00334404081 000 1 .flQPHWIQftl 

03068C0F , 1 F 1 F3F3E7C78E84 , 3878FCFEFF7FFFFF ' " 

3530 DRTR FFFF9F0F8F8F0F0F , 008000 1 F7FFF3FFF , 7F , 0078FCFE9FFFFFFF , FFFF 1 F0F8F0FHF0F 

,0F1F1F3F7FFFFFFF, FF7F7F3F1F0F060E 

3540 DRTR 008088C0C0C0E0E8, FCF8F1FFFFFF367, 000000080C8606PIE . RF7CFCFP.F0K , FFPFPepF 

FFFFFFFF,,00000282R3E7FFFF " * " " " 

3550 DRTR 09000 1 092B6FFFFF , FFFFE7C54 1 4 , FFFFF6D49B8 , 0F3F0703030F07 1 F , F8E8F0npraE0 

FCF , FFFFFFFFFFFFFFFF , 0044444454545428 

3560 DRTR 00040F1B3E6F3D17, 171FlBiFi61F0BlD,000000BFEEBB7FEF,000080C060F0R8C. 1R7 

FFFFFFFFFFFFF, 1F7FFFFFFFFFFFFF, 183E7EFE18131818 

3570 DRTR 00000000 0000007C ,0103 07070F0F 1 F 1 F , 3F7F7F3F7F7FFFFF , 88C0E0E0E0F0F8F* . F8 

FCFCFEFCFEFFFF, 80E0E8F8F4FCFEFF, 0107070F2F3F7FFF «t Jcec-rcr 

3580 DRTR FFB9B Uli, D392 1 202 , 0387EFF7FBFBF9FE , FFFFFFFFFFFFFFFF , FFFFFFFFFFFFFFFF , 

7F3FDFDFCFF7F7FF, FFFFFFFFFFFFFFFF 

3590 DRTR FEFCFBFBF3EFEFFF, C0E1F7EFDFDF9F7F, FFFFFFFFFFFFFFFF, 000 1010 107 1F3DFF . FF 

FF1F070703,00C0E0F8FCDFFFFF,DDFFFFEFFF3F1F0C 

3600 DRTR 0000337F7FFFFFFF , FBFFFFEFFFFCF88 , 80008080E8F8BCFE , F6FE7EECE0C08 , FFFFFF 

FFFFFFFFFF , 0009004 423 10101, 0008007C08 1 0207C 

3610 DRTR 0018202040202018,001010100010101,003008080408083,0000205408, .E8Fr:FRW 
177FDF8,F8F8F8F8D8D8D8FC " 

3620 DRTR 173F1F0E86EEBF1F, 1F1F1F1F1B1B1B3F, ,0103078FlF3F7FFF,0183860CiC3878F,F0 
F0E0C0C0888, 80C0C0C 

3630 DRTR 00000000000870F8, 01030303, 0000000008008E1F . 0080004428102844 . FiflßflRfWfl? 

030408 , , 00Ö020408080402 - " 

3648 RESTORE 3480 

3650 FÖR 1=32 TU 143 

3660 RERD C$ 

3678 CRLL CHRR< I , C* ) 

3680 NEXT I 

3698 RETURN 
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REM > > 

CO 
CLS 
LET P=150 
LET T*2® 
LET S="3 
GOSUB 600 
GOSUB 450 
LET Xslö 
LET Y = 10 . i _ ti 

PRINT AT x,Y; ;'g ■ 



LET Y «Y + t INKEYS = " S " ) - ( INKEY 



') 



IF X>=21 OR X<® OR Y>»32 OR 
THEN GOSUB 1000 _„ 

SP^S^NfWÜ ?HEN .QOTO 2 

IF X»10 FIND Y=3 THEN GOTO 3 
IF XaJ.5 AND Y=6 THEN GOTO 4 
IF Xc30 AND Ys9 THEN GOTO 4 
IF X=S AND Y*15 THEN ÖOTO 5 
IF x =16 RND Yal6 THEN GOTO 
IF X=2 ÄND Y«21 THEN GOTO 6 
IF X=17 AND Y=24 THEN GOTO 
IF X=9 RND Ysl THEN GOTO 70 
IF XslS AND Y*5 THEN GOTO 7 
IF Xs3 AND Y*4 THEN GOTO 80 
IF Xsö AND Y*7 THEN GOTO SS 
IF X=6 AND Y-27 THEN GOTO 9 
IF X=8 AND Y-lfl THEN GOTO 3 
GOTO 30 

IF P<=0 THEN GOTO 1600 
IF T<=0 THEN SOTÜ SÖgg^ 
IF 5>=10 THEN GOTO 1500 
PRINT 




Korrektur 

ZX-Spectrum 

Ausgabe 10 



Oil-Panic 



340 FOR c = 6 TO 26 STEP 4 : BEEP 

.01,35 : PRINT AT 17, c; "ä"; AT 18, c; "ä"; AT 19, 

c;"ä"; AT 20, c;"ä":NEXTc 



Expedition 



Ein Abenteuerspiel mit guter Gra- 
fik. 

Sie befinden sich auf 
der Südseeinsel „Ca- 
mazulou" und leiten 
eine dortige Expedi- 
tion. 

In Ihrer Begleitung befinden sich Ein- 
geborene, die als Lastenträger für Ihre 
Ausrüstung und Verpflegung ausge- 
sucht wurden. Von Ihrem Freund Har- 
ry haben Sie eine Karte bekommen, 
auf der einige wichtige Stellen der In- 
sel markiert sind. Harry hat aber nicht 
vermerkt, was Sie dort finden werden. 
Im Südwesten der Insel haben Sie Ihr 
Camp >C< errichtet und starten von 
' dort aus, mit Hilfe der Cursortasten, 
Ihre Expeditionen. 




Ziel des Spieles ist es, möglichst viele 
der eingetragenen Schatzpunkte anzu- 
laufen und die Funde einzusammeln. 
Passen Sie aber auf, daß keiner Ihrer 
Begleiter verlorengeht und Ihr Pro- 
viant bis zum Ziel ausreicht. 




Der NEWMAN Berato^sÄblog 



Rund 1.000 Angebote. Alles von COMMO 

DORE, Sinclair, Dragon, Sharp, Spectra- 
video und anderen mit Original -Werks- 
Garantie. SOFORT LIEFERBAR. Ob Hard- 
ware, Peripherie, Bücher, Programme oder 
Zubehör, Sie erhalten alles aus einer Hand. 
Teilzahlung, technischer Ser- 
vice, BERATUNG. 



*th 



SR 



m l Gutschein für 1 Katalog 



Ausfüllen, ausschneiden, auf Postkarte kleben MU 11 

und absenden. 

Name/Vorname 



|MAM Co«pmer-J*r«aiKl Postfach 50 11 26, 

2000 Hamburg 50, Tel. 040/85060 71 
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505 PRINT RT 5,12; "H" 

510 PRINT RT 10,3; "fl" 

SIS PRINT AT 15, 6 j "■" 

SSS PRINT AT 20,9; *' . " 

525 PRINT RT 3,15;"1" 

530 PRINT AT 16,18;*ir 

535 PRINT AT 2,21; -IT 

548 PRINT ST 17. 24.; TT 

545 PRINT RT 9,1;"." 

550 PRINT RT 12,&;"H" 

555 PRINT RT 3,4; "H^ 

550 PRINT RT 6,7; "IT 

555 PRINT RT 6,37; Ti" 

570 PRINT RT 8,19; "7" 

575 PRINT AT 21,0; "TRREGERi ";T 

? 5SS PRINT RT 21,17; "PROUIRNT: "; 

|§5 PRINT RT 0,0; "SCHRETZE: ";S 

590 RETURN 

600 CLS 

610 FOR N=l Tö 2 1 

620 PRINT 



S0 

■ ■ M 7m 

O 20 



RT S,l; " 
"J RT S , 1 



";ftT 5,5; 
7,5; '* 1 



';AT 5,10 
7,1©;" " 



14 
RT 



630 "'NEXT N 

640 PRINT RT 4,1; " 

;;;RT # 6,l;" ";RT 7,1;*' 

'650 FOR Ns0 TO 
660 NEXT N 

670 PRINT RT 4 

680 FOR Ns0~ 

690 NEXT N 

700 PRINT RT 4,10; " 

i.A"j3 T 1 ö A 10 '" "; flT 

;RT s, 10; '■ " 

710 FOR N=0 TO 20 
720 NEXT N 

730 PRINT RT 4,14;" " : f\T 5 
;" ";RT 6,14," ";RT 7,14;" ". 
8, 14; ' 
740 FOR N«0 TO 2© 
750 NEXT N 

PRINT RT 4,18;" ";RT 5,18 

,^1*1,!^ ■■*"■»* ?-^" 

70 FOR N=0 TO 20 
780 NEXT N 

790 PRINT RT 4,23;" " ; RT 
o^e 1 ".. 6 ' 23 ;" ";*T ^3; " 

"S60 FOR N=ö TO 20 
SlO NEXT N 
320 PRINT RT 6, SS; " 
S30 FOR N»0 Tö 20 
S40 NEXT N 
850 PRINT RT 11, 5; M " ; RT 12, 

860 FOR N=0 TO 20 

870 NEXT N 

88ö PRINT RT 11,10; ' 
; " ";RT 13,10; " ";RT 
T 15,10;" " 

S90 FOR N=0 TO 20 

SO© NEXT N 

910 PRINT RT 11,12; ' 
12; " g ";RT 13,12; " | 
; " ■ ";RT 15,12; " 

92Ö FOR N=© Tö 20 



5,23; " 
';RT S, 



";RT 12,10 
14,10;" ";fl 



"JRT 12, 
";RT 14,12 



933 NEXT N 

940 PRINT RT 11,16; 
, 16; " ■ ";RT 13, 16; 
,!§;" T ";RT 15,15; 

950 FOR N=0 TO 20 

960 NEXT N 
70 PRINT RT 2,5;"" 



a 



";RT 12 
";AT 14 




FUEP DEN ZX--8 



_ TT RT 19,5; "BcnSaiRflLFlJ 

flHNKEÜBBH" 

990 FOR N=0 TO 300 

995 NEXT N 

999 GOTO 11O0 
1000 PRINT RT 10,2; "DR DIE KRRTE 

ZUENDE IST,".:RT 11 , 2; "NUESSEN S 
IE UMKEHREN." 
1010 FOR N=Ö TO 100 
1020 NEXT N 

103® GOTO 9 
1100 CLS 

1110 PRINT. 

B W I Hl i lBl 



* SIE BEFINDEN SICH RUF DER ' * 

* SU E D SE E IN SEL > C RM A Z UL OL) < , UN D * 

* LEITEN EINE EXPEDITION. ' * 



1120 PRINT 



*■ IN IHRER BEGLEITUNG BEFINDEN * 

* SICH EIN PAAR EINGEBOHPENE . * 

* DIE IHNEN RLS TRAEGER FUER * 

* I HR E " RU SR UE STU N G DIE NE N . * 



1130 PRINT 



■ VON IHREM FREUND HRPPY HABEN * 

• . S IE E I NE KRRT E M IT ßE K M ME N . * 

* RUF DER EINIGE STELLEN . * 

* MARKIERT SIND. JEDOCH. KONNTE * 

* IHR FREUND IHNEN NICHT MEHR * 

* MITTEILEN, URS SIE RN DIESEN * 

* STELLEN FINDEN UERDEN . * 



1140 PRINT 



* SIE HRBEN IM SUEDUESTEN DER - 

* INSEL IHR C R MP ) C ■; E RR I C hT BT 

* UND STARTEN '.JON DORT AUS MIT * 

* HILFE DER KURSOR -TASTEN IMPF. *■ 

* EXPED ITIONEN. ■+ 



1150 IF INKEYS ="" THEN GOTO 1150 
1160 RETURN 
1SO0 CLS 

1510 PRINT RT 3,10; "GRATULIERE"; 
RT 5,3; "SIE HABEN EINIGE SCHRETZ 
E";RT 7,3; "ANGESAMMELT, UND KOENN 
EN";AT 9,3; "STOLZ ZÜRUECK NRCH H 
RUS";RT 11,3; "FAHREN, UND VON IHR 
EN;;.;flT 13, 3; "RBENTEUERN BERICHTE 

1520 PRINT RT 15,3; "SIE KOENNEN 

ABER AUCH";RT 17,3; "EINE WEITERE 
EXPEDITION"; RT 19,3; "MIT >E< ST 
ARTEN, ODER";RT 21,3; "DIESES PRO 
GRAMM MIT >S< SAUEN" 
1525 IF INKEY*="" THEN GOTO 1525 
1530 IF INK£Y$="E" THEN -RUN 
1540 IF INKEY$="S" THEN GOTO 999 
' - 

1550 STOP 
1600 CLS 

1610 PRINT. RT 2,3; "ES tST ZUM HE 
ULEN,...";RT 4,3; "SIE URREN SCHO 
N.SO WEIT"; AT 6, 3; '.'GEKOMMEN. '*; AT 

8,3; "ABER DER PROUIRNT IST"; AT 
10,3; "UERBRAUCHT UND SIE. MUE5SEN 
";RT 12,3; "EHLENO IG UERHUNGERN " 
; AT 13,3; T 



FRIEDE IHRER ASCHE. . . . 



1620 GOTO 1620 

2000 CLS 

2010 PRINT RT 2,3; "ALLE IHRE TRR 

EGER SIND"; AT 4,3; "TOT ";fl 

T 8,3; "SIE MUESSEN OHNE IHRE";RT 
10,3; "RUSRUESTUNG NRCH HAUS ZUR 
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[^^püeair- 



Ix! 



U£CK";AT 14,3; "WELCH EINE ELAMAG 
E....";AT 1S,3-;"UENN SIE WOLLEN, 
KOENNEN";AT 18,3; "SIE RBER MIT > 
E< EINE"; AT 20,3; "NEUE EXPEDITIO 

2323 IF INKEYS="" THEN GOTO 202© 

203-3 IF lNKEY$s"£" THEN RUN 

204i3 STOP 

2500 CLS 

;nt 




2520 FÜR N=l TO 40 _ w t a _ „ 
g525 PRINT AT 1 , 15; "ET; RT 1,15;" 

2527 NEXT N 

253© PRINT RT Ö,ö; ..„ _ 
SIE SIND IN EINE HuEHLE 
GELANGT UND ENTDECKEN RN_ 
DER HOECHSTEN STELLE EINEN 
BLITZENDEN DIAMANTEN AN DER 
DECKE. 
£535 PRINT 

WAS UOLLEN SIE TUN.UM AN 
DIESEN DIAMANTEN HERANZU- 
KOMMEN 



:-S37 PRINT 



MIT IHREN TRAEGERN 
EINEN MENSCHENTURM 
BAUEN .. . 

@. . . ZUM LAGER ZURUECK- 

GEHEN.UM EINE LEITER 
ZU HOHLEN 

@. , . DIE FEUCHTEN HGEHLEN- 
U AENDE HINAUFSTEIGEN 

2540 IF INKEY$="" THEN GOTO 254© 
£550' IF IHKEV$ = "1" THEN GOTO 2*0 



256S IF INKEY$="2" THEN GOTO £70 



2570 IF INKEY$ ="3" THEN GOTO 2S0 
© 

2S00 CLS 

2S1Ö PRINT AT 3,3;" SIE HABEN DEN 
DIAMANTEN"; AT 5,6; "ERREICHT UNO 
KASSIEREN"; AT 7,3; "EINEN SCHhTZ 

PUNKT."; AT 9, 3; "JEDOCH HABEN DIE 
SEIDEN''; AT 11,3; "UNTERSTEN TRRE 

GER DIESE"; AT 13, 3j "ANSTRENGUNG 

NICHT UEBERLEBT. " 

2620 LET S=S+1 

2630 LET T=T-2 

2640 FÜR N=ö TO 20© 

2650 NEXT N 

2650 GOTO 9 

2700 CLS 

2710 PRINT AT 3,3;"SIE HRBEN EIN 

E LEITER"; RT 5 ,3; "GEFUNDEN, UND K 

ONNTEN";AT 7,3; "DEN DIAMANTEN BE 

RGEN . " ; AT 3,3^" ABER UAEHRENÜ gl| 
WEG WAREN,"; AT 11 , 3; "HhBEN IHRE 
TAEGER l-'-4 IHRES"; AT 13,3; "PRuU 

IANTES VERTILGT. M 

2720 LET 5=5+1 

2730 LET P = INT P-CP/4) 

£740 FOR N=0 TO 200 

2750 NEXT N 

2760 GOTO 9 

2SÖ0 CLS 

£810 PRINT AT 3,3; "SIE HRBEN DEN 



DIAMANTEN"; AT 5,3, 
R HAND, ALS"; AT 7,3 

FANGEN/ 1 ; AT 13,3; "JEDOCH «JERLORE 



"GERADE IN DE 
, "SIE ABRUTSCH 
'TRAEGER KÖNNT 



N SIE DEN"; AT 15,3; "GESAMTEN INH 
ALT IHRER": AT 17 ,3; "TASCHEN . " 
£315 PRINT AT 19,3; "ES BLEIBT IH 
NEN NUR DER";AT 21 , 3; "DIAMANT IN 

IHRER HAND." 
282© LET 5=1 
2S30 FOR N=ö TO 20© 
2S40 NEXT N 
2S50 GOTO 9 

3020 CLS M 

3Ö25 FOR N=l TO 3© 
3030 PI 




304 



PRINT AT 3,13; " 
";RT_2 i i4; "M f ' 
4; " 



50 PRINT*" AT 
AI 7, 

^((SWPRIRtTSt 10,3;"MITTEN im se 

£ IST EINE"; AT 11 ,3; "MARKIERUNG 
UND SIE SCHICKEN"; AT 12, 3; EINIG 
E TRAEGER ZUM TAUCHEN ."; RT 14, 3; 

"ABER SIE FINDEN NICHTS,"; AT 15, 

3; "UND ZU GUTERLETZT WERDEN"; AT 

15,3; "NOCH 3 UON IHNEN UON EINEM 

"; AT 17,3; "SCHUARM KROKODILE GEF 

RES5EN . " 

3070 NEXT N 

30S0 LET T=T-3 

3090 GOTO 9 

3500 CLS 

3505 FOR N«l TO 20 

3510 

s; " 
,19; 

3520 
9; " 





LAT 1,1 

";AT 3 



; AT 1,1 



[T AT 0,20; 
".LAT 2,19; . 
";AT 4,20; 
...NT AT 0,20; " 
AT 1,24;" ";AT 2,19;" ": AT 
2,24;" ";AT 3,19;" 'MRT 3,24;" 
";RT 4,20; " 
353Ö PRINT AT 3, 




J540 pr-jnT"^T"4T12;" ,, P " ; AT 5 ,11; 

■■ JU";AT 5,i2;"ii ";RT ?,11;"JW 

35?S PRINT AT 11 ,3; "DIE gONNC" HI 

ER AM STRAND"; AT 13,3; SCHEINT E 

RBARMUNGSLOS" ; AT 15 , 3; "UND IHR P 

ROUIANT WIRD UENIGER";AT 17,3; "D 

OCH DIE MUEHE LOHNT SICH. "; AT 19 

,3; "SIE FINDEN EINEN BEUTEL"; AT 

21,3; "UGLL GOLDMUENZEN." 

356Q NEXT N 

3570 LET S=S+1 

35S0 LET P=P-20 

3590 GOTO 9 

4000 CLS 

4010 PRINT AT 3 ,3; "SIE GER ATEN I 



N EIN"; AT 5,3;"ifflälä 
ERLIEREN";AT 7,37^ 
ND PROLIANT," 
4020 LET T=T-3 

4030 LET P»P-30 

4040 FOR Nal TO 15© 
4050 NEXT N 
4-060 GOTO 9 
4500 CLS 
4S1Ö PRINT .AT 



iMmm und u 

fTTRAEGER U 




4520 PRINT AT 15,3; "SIE ENTDECKE 
N AUF DEM"; AT 15, 3; "MEERESBODEN 
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incilöir^ 



zxü 



EIN SCHIFFS-"; RT 17,3;"URACK UND 
KOENNEN EINE"; AT 18,3;"KI5TE Uö 
LL PERLEN BERGEN. ";AT 19,3; "ÜEDQ 
CH WURDEN ZWEI TRREGER";AT 20,3; 
"BEIM TAUCHEN VON HAIEN"; AT 31,6 
; "SERRISSEN." 
4530 LET SaS-M 
4-540 LET T=T~2 
4550 FOR N = l TO 200 
4560 NEXT N 
4570 GOTO 9 
5000 CLS 
6010 RR INT 




5030 PRINT AT 7,3; "MITTEN IM DSC 
HUNGEL FINDEN " ; AT 3, 3;" SIE EIN F 
LUGZEUGURRCK AUS DEM" ; RT 9,3; "LE 
I5L e 1 N cr t R J El V ;RT 10,3; "SIE ENTDE 
CKEN EINE KISTE"; RT 11,3; "MIT UE 
RTUOLLEN BRIEFMARKEN." 
5030 LET S=S+1 
S040 FOR N=l TO £Ö0 
5045 NEXT N 
50S0 GöTö 9 
55Ö0 CLS 

5S10 PRINT RT 2,3; "EINE UERGES5E 
NE GOLDMINE" ;RT 4,3; "STEHT VOR I 
HNEN.";RT 6,3; "UAS WOLLEN SIE Mfl 
CHEN ?";RT 3,3; "B... ZUEI TRAEGE 
R RLS KUND-".:RT 9 , 3; "SCHRFTER HI 
EINSCHICKEN"; RT 11,3; "§.,,, SEL65 
T HINEINGEHEN" 

5520 IF INKEYS ="" THEN GOTO 5520 
5530 IF INKEY$s M l" THEN GOTO 550 



5540 IF lNKEY$s"2" THEN GOTO 570 

8 

5550 GOTO 5500 

5600 CLS 

5610 PRINT RT 3,3; "SIE- URRTEN CR 

,3 STUNDEN"; AT 5,3; "AM MINENEIN 

GANG UND SIND";RT 7,3; "DRNN SICH 

It^rI? g^ IDEN " ;RT ^3;"ABGE 

5620 LET T=T~2 

SS30 FOR N=l TO 200 

5635 NEXT N 

5640 GOTO 5500 

5700 CLS 

5710 PRINT RT 3,3; "SIE GEHEN SEL 

BST HINNEIN";AT 5,3;"UND FINDEN 

EINEN CLAIM, DER" ;RT 7,3; "NOCH NI 

CHT AS6E5CHUERFT IST . " 

5720 LET SsS+1 

5730 FOR Ns=l TO 150 

5740 NEXT N 

5750 GOTO S 

SÖ00 CLS 

)10 PRINT AT 

, 6iJ:ri ,8!! l" ; AT 4 , 6 ; "1 
1"; Rf 5,0 



CÖ15 PRINT RT 8,3; "SIE ENTDECKEN 

EIN DORF"; AT 10,3; "UND KOENNEN 
HIER EINEN IHRER"; AT 12,3;"SCHRE 
TZE GEGEN PRQUIANT " ; RT 14, 3; "EIN 
TAUSCHEN, UOLLEN SIE ?";RT 16,5; 
"üsUfl/NsNEIN" 

6020 IF INKEY$="" THEN GOTO 6020 
6025 IF INKEY$0"J" THEN GOTO 60 
50 

6030 IF S=0 THEN PRINT AT 13,3;" 
SIE HABEN JA GAR KEINEN"; AT 20,6 
OSCHATZ..." 
6035 IF S=© THEN GOTO 9 
6040 LET P=P+100 
6045 LET S=S-1 
6050 GOTO 9 
6500 CLS 

6510 PRINT AT 5,3; "EIN TRREGER T 
RITT IN EINE";RT 7 , 3; "TIGERFALLE 



UND STIRBT " 

6520 LET T=T~1 
6530 FOR N=l TO 10Ö 

654Q NEXT N 

6550 GOTO 9 

7000 CLS 

701Ö PRINT RT 3,3; "IN EINER LAGU 

NE AM STRAND"; AT 5,3; "FINDEN SIE 

KOSTBARE" ; AT 7,3; "KORALLEN 
7020 LET S=S+1 
703© FOR N*i TO 100 
704Ö NEXT N 

7050 GOTO S 

7500 CLS 

7510 PRINT RT 3,6 _ 



7510 PRINT RT 3,6 



7520 PRINT RT 9,3; "SIE FINDEN EI 
NEN PIRATEN-"; AT 11 ,3; "SCHATZ. . . 
";RT 13,3; "ABER DURCH DIE ANSTRE 
NGUNG";AT 15,3; "BEIM GRABEN UERD 
EN EINE MENGE" ; RT 17 , 3; "VORRAETE 

VERBRAUCHT . . ." 
7530 LET SsS+1 
7540 LET P=P-50 
7550 FOR Nrl TO 200 
7560 NEXT N 
7570 GOTO 9 
S000 CLS 

3010 PRINT RT 6,3; "SIE UERDEN UO 
N EINGEBOHRENEN"; AT S,3;"UEBERFA 
LLEN ..." 

S020 FOR N=0 TO 40 
S030 NEXT N 

8050 PRINT AT 12,3; "IHRE SCHAETZ 
E UERDEN GERAUBT"; AT 14,3; "UND 
IE HAELFTE IHRER"; RT 15,3;"MAENN 
ER GETOETET. . . " 
8060 LET S=0 
3070 LET TsINT (T/2> 
6080 FOR N = l TO 150 
8090 NEXT N 
8100 GOTO 9 
8500 CLS 

8510 PRINT AT 3,3; "RUF EINER RNH 
OEHE £NTD£CKEN";.AT 5,3; "SIE EINE 
N ALTEN INKA-TEMPEL"; AT 7,3j_"UND 

IM HAUPTGEBAEUDE FINDEN"; AT 9,3 
;"SIE ZUEI TONSTATUEN, DIE MIT""A 
T 11,3; "EDELSTEINEN VERZIERT SIN 
D.",RT 15,3; "JEDOCH WIRD EIN TRR 
EGER UON";RT 17,3; "EINEN GIFTIGE 
N PFEIL"; RT 19,3; "GETROFFEN." 
S520 LET S=S+2 
8530 LET TsT-1 
SS40 FOR Nsl TO 200 
8550 NEXT N 
SS60 GOTO 9 
9000 CLS 

9010 PRINT AT 3,3; "DRS GRABMAL E 
INES HOHEN"; RT 5,3; "PRIESTERS LI 
EGT UOR IHNEN. ";RT 9,3; "SIE OEFF 
NEN ES UND FINDEN"; AT 11,3; "JUWE 
ELE UND SMARRGTE,DIE";AT 13,3; "A 
LS GRABBEIGABE MIT BEGRABEN" ; AT 
15,3; "WURDEN. 
9020 FOR N=0 TO 10© 
9030 NEXT N 

9040 PRINT AT 17, 3; "JEDOCH LAG E 
IN FLUCH AUF DEM"; AT 19,3; "GRAB 
UND DIE HAELFTE IHRER"; AT 21,3;" 
TRAEGER STARB AN CQLERR..*" 
9050 LET 5*6+2 
9S53 LET T=INT (T/2) 
9070 FOR Nsl TO. 10© 
9030 NEXT N 
9090 GOTO 9 

9990 CLS 

9991 PRINT "CRSSETTENREKORDER EI 
NSCHRLTEN. . .DANN. . . ,N E W L I N 
E . . . " 

9992 IF INK£Y$="" THEN GOTO 9992 

9993 SAUE "EXPEDITIofl" 
9995 RUN 
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Ceschenhahtion f 84 | 



Unser Weihnachts-Paketservice 

Für unsere Leser, die Überraschungen 
lieben, hat sich unsere Redaktion etwas 
einfallen lassen. Überzeugen Sie sich selbst. 
Wir haben Ihnen einige S u p e r-Angebote 
zusammengestellt: 



Spitzen-Programme zum Spitzen-Preis: 




Bestell-Nr. 100 



kleines Programm-Paket 



Bestell-Nr. 1 1 



o großes Programm-Paket 



Bestell-Nr. 200 



exklusive Disketten-Box 



3 bespielte Kassetten DM 24,50 
3 bespielte Disketten DM 40,— 

8 bespielte Kassetten DM 49,50 
8 bespielte Disketten DM 99,— 

inkl. 8 bespielten Disketten 
zum Preis von DM 130,- 

inkl. 10 Leerdisketten 
zum Preis von DM 99,- 

Alle bespielten Kassetten und Disketten wurden unserem Kassettenservice Seite 84 und 85 entnommen. Unser Disketten- 
angebot gilt nur für Commodore 64 und Atari! 

Bestell-Nr. 300 Compiltroni C-Aligebot unsere Ausgaben Heft 4-10 

zum Sparpreis von DM 25,- 
Bestell-Nr. 350 Abonnement „CoiIiputrOIlic" zum Preis von DM 55- 

Bestellungen, die bis zum 21. 12. 1984 bei uns eingehen, werden rechtzeitig zum Weihnachtsfest geliefert. 



Besten-Nr. 210 exklusive Disketten-Box 



Computronic 



Bestellkarte-Geschenkaktion '84 



Die Zustellung erfolgt: gegen Vorkasse □ 
(Ausland nur gegen Vorkasse) 

innerhalb von 1 Woche 



oder Inland per Nachnahme D 
+ Versandkosten 



Entnehmen Sie bitte aus unserer Preisliste die notwendigen Angaben für Ihre Bestellung: 
Bitte liefern Sie mir: 



Bestell-Nr. 



Anzahl 



JSK 



lüiii 



Bestell-Nr. 



Anzahl 



zum Preis von gesamt 



DM 



Name/Vorname: 



Straße, Nr.: 



PLZ/Ort: 



Datum, Unterschrift 



Computronic 
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Computer-Börse 



Verkäufe 



Atari 8O0XL. Software Liste 
anfordern gegen 80-Pf. -Brief- 
marke. Textverarbeitungs- 
programm. Hans-Jürgen 
Brand, bei Wulff, Keselstr. 21 , 
3000 Hannover 91 



Anti-Brumm-Heiz-Adapter im 

formschönen Slim-Line-Ge- 
häuse für den geplagten 
Spectrumfreak: 20 DM 
(Scheck o. Schein). Info ge- 
gen 80 Pf Rückporto. T. 
Schröer, Hohlstr. 11, 6791 
Steinbach 



Verkaufe Reset-Taste für 
C64 und VC 20, ohne Ein- 
bau, nur einstecken. 1 Stück 
10- DM, 3 Stück 20- DM 
(Schein), Turbotape für C 64 
auf Kassette für 30- DM, 4 
eigene Spiele K. 10- DM. 
Best, bei S. Valentine Frank- 
furter Str. 285, 63 Gießen 

DGDGGDDDDGDDnDDDDD 

□ Tl 99/4A + Exbasic + □ 
g div. Bücher + Rec. + Ka- g 

□ bei + Basic-Kurs, VB □ 
p 750,- DM, □ 
H Tel.: 28 61 /48 45 H 
n Sa. ab 18.00 Uhr n 

D D 

nDGDaaaaDDGQQDDaaD 
Atari/Spectrum-User-Club, 

monatl. Info, viele Superpro- 
gramme, Beitrag nur 5- DM. 
Melden bei: ASUC, Güterslo- 
her Str. 68, 4803 Steinhagen 



Apple II: E. T. (Alleslerner) o. 
Geldspieler. Tamm, Solmsstr. 
43, 1 Berlin 61 



Apple II Super-Disketten-K + 

ility m. fantastischen Möglich- 
keiten. Info g. Freiumschlag 
bei: L. Düning, Kurze Brehe 
10, 4500 Osnabrück 



Verk. ZX 81 (Fol.-Tast. Def.) + 
16K + Netzt. + Koaxkabel + 
Rec.-Kab. + deut. Anltg. + 
Buch M.80 Prgr., zus. 120- 
DM. Chr. Lenk, Langlütjen- 
sand 4, 28 HB 66, Tel. 04 21 / 
58 73 26 



Verk. Colour-Genie 32K, mit 

original Software NW 600-, 3 
Handbüchern u. Datenrecor- 
der für nur 550,-. Tel. 47 21 
/ 4 72 80 



^xv\^xv^v^vcv^xvsxv^xxvv\^^^^^^^^^ 




Verk. Tl 59 + Drucker 
PC100C + Anleitungen + 
Netzteil 4- 60 Magnetk. + 2 
Rollen Papier, zus. für 450- 
DM. W. Lenk, Langlütjensand 
4, 28 HB 66, Tel. 04 21 / 
58 73 26 



Akustikkoppler C-64 DM 
138,-, einfach an Userport 
stecken! Kein Interface nö- 
tig. Inkl. Software! Telefon- 
wahlautomat DM 39,-. Info 
von I. Drust, Landwehrstr. 
5, 6100 Darmstadt 



Verkaufe: TI-99/4A + Ext. Ba- 
sic + Joysticks + Recorder + 
Kabel + Tl-Invader + dt. 
Handbuch + ca. 70 PGM. + 1 
Tl-Magazin + Chip-Buch. VB: 
700- DM. Tel.: 02 21 / 
60 76 76 



Achtung: TI99/4A + Mini Me- 
mory, Editor/Assembler/Dis- 
assembler. Paket nur 30- 
DM in Scheinen an T. Mielke, 
Falkenkamp 17b, 2000 Nor- 
derstedt 1 



^^^^^^Ku***^^^^^^Mc^^vcoK^^v'•^ 



Amateurfunk- und andere 
Programme für Spectrum 

u. ZX 81. Ausführliche Li- 
sten gegen Rückporto. Bit- 
te Computertyp angeben! 
Michael Schramm, Freilig- 
rathstr. 5, 2300 Kiel 1 



Verk. TI-99/4A + Ex-Ba- 
sic + Sprach-Synthesizer 
+ Joyst.-Adapter + ca. 

100 Prg. + Zubehör. VB. 
A. Neuburger, Feldstr. 16, 
7505 Ettl. 8, Tel. 72 43 / 
2 91 75. 



Tl 99/4 A Ext.-Spiel nur für Er- 
wachsene - bitte Alter ang. 
zum absoluten Preishit von 
nur DM 10,- im Umschl. an T. 
Karbach, Remscheider Str. 
18, 5650 Solingen 1 



Wenn ihr „Mugsy von Melbour- 
ne House" wollt, dann kriegt 
ihr es für 35 DM (vielleicht) 
noch bei: Jan Weigner, Carl- 
Schurz-Str. 1 1 , 2800 Bremen 
1, Tel. 04 21 / 34 63 87 



Tl 99/4A. Erstelle Druckerli- 
sting v. Ihren Programmen in 
Tl- u. ext. Basic, je Pgm. -Zeile 
4 Pf. + 2,50 DM f. Portokass. 
m. V. -Scheck o. Briefmarken 
an H. Schwab, Loch 21 , 8504 
Stein 



+ TRS-80/VG Pro- + 

♦ grammliste gegen Frei- ^ 
Umschlag. Scheve, ▼ 

+ 6842 Riedrode + 



D-64 Forth. *** 49- DM, 
Handb. 25 - DM *** Info: D. 
Luda, Staudinger Straße 65, 
8 München 83 *** 



••• FLOPPY 1541 6x 

SCHNELLER! ••• durch 
Parallelbus für C 64. Interface 
kpl. geprüft mit Software nur 
DM 179-, Info gegen DM 
1,50 in Briefmark., B. Akes- 
son, Pf. 802, 4040 Neuss. 



Ankäufe 



oooooooooooooooooo 

o o 

§ TI-99/4A g 

o Suche Extended Basic o 

O Modul evtl. Tausch ge- O 

o gen Editoriassembler § 

O sowie Maschinen- o 

O Sprachprogramme z. B. O 

O Flugsimulator und Ex. § 

o Basic Spiel Miner 2049 o 

o (USA-Version). g 

O Tel. 71 32/3 76 08 g 

o o 
oooooooooooooooooo 

Suche 
VC-20-Programme 

Fritz, WichdorferStr.14 
3501 Emstal 2 



Apple II. Suche Software, evtl. 
auch Tausch. Schickt Eure Li- 
ste an Jörn Lubkoll, Boothstr. 
23 b, 1000 Berlin 45 *** nur 
Disk *** 



Suche: Gute und billige Soft- 
ware auf Diskette für 64K Ata- 
ri 600XL. Angebote an: Mi- 
chael Ebeling, Riepener Stra- 
ße 7, 3061 Beckedorf 



Suche Atari Diskettenstation, 

Aussehen egal, Hauptsache 
sie funktioniert. Bitte anrufen 
unter Berlin 30 / 

4 93-19 27 



Tl 99/4A Minimemory 
+ Logo gesucht. Tel. 
08 81 / 6 21 64 



Z Apple II. Bin an Soft- » 

• und Hardware für Apple • 
f I! aller Art interessiert. Ul- J 

• rieh Elsen, Am Jahnplatz » 

• 6/383, 4500 Osnabrück • 



Kontakte 



Hallo Spektrumfreaks. Ich 

möchte mit euch gerne Prog. 
tauschen. Liste, ob groß oder 
klein, an: Robert Weidinger, 
Schönmetzlerstr. 10, 8050 
Freising oder Sams.— Diens. 
81 61 /43 72 



Kontakt mit MZ700-Leuten ge- 
sucht. Tel. 05 11 / 42 29 75 

OOOOOOOOOOOOOOOOOO 

o *** Atari-Spectrum- o 
O User-Club *** 

O monatl. Info, bundesweit o 

O organisiert, riesige O 

§ Prog. -Bibliothek usw., § 

melden bei: o 

§ ASUC, Am Schürhof 17 § 
o 4905 Spenge o 

O Tel. 52 25 / 20 68 § 

oooooooooooooooooo 

DDDDDDDDDDDDDDDDDD 
D D 

□ Comp.-Club ü 
g Bad Hersfeld 

d sucht Mitglieder! 

□ Kontakt über 

S Roland Reyer i 

d Am Giegenberg 21 □ 

n 6438 Ludwigsau 1 ü 

□ oder Jugendhaus Hers- □ 
d feld d 

ü D 

DDDDDDDDDDDDDDDDDD 



Tausch 



DDDDDDDDDDDDDDDDDD 

D TI-99/4A Super Ext. p 

d Basic und Assembler- d 

§ progr. Tausch bzw. Ver- 5 

i kauf Info (1,-): Stefan □ 

□ Schäfer, Max-Planck-Str. □ 

j 8, 4050 M.-Gladbach 2. g 

D PS: Tauschliste beile- O 

Lj gen (nur Assembl.). 

DDDDDDDDDDDDDDDDDD 



Tausche/Verkaufe Atari Prg. 

16 K. Uwe Schöneberger, 
Sonnenstraße 18, 6652 Bex- 
bach 2 



Suche Software aller Art 
(Disk.), für Atari 800 XL u. An- 
tic-Hefte bis März 1984, evtl. 
auch Computer u. Analog. 
Dietmar Levenhagen, Land- 
wehr 83, 3057 Neustadt 1, 
.Tel. 50 32/6 11 81 

ZX-Spectrum 

Software und Interessen- 
austausch 

Monika Baumgartner 
4021 Linz 

Postfach 142 Au Stria 
Bitte Liste beilegen 
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Computer-Börse I 



Verschiedenes 



DDDDDDDODDDDDDDDDD 



ZX 81: Schluß mit den 
Clive-Sinclair-Gedächt- 
nisminutenü DD lädt Ihre 
Programme 12x schnel- 
ler!! Für 20- DM von: 
DD-Software, Bernadot- 
testr. 45, 6 Ffm. 50, SP 
69/58 71 79 



DDDGaGDGDDGDDDDDDD 

UFO-Forschung. Informa- 
tionen über UFOs etc. kosten- 
los. Suche Interessenten zum 
Aufbau einer Computer-AG (c 
64), spez. für wiss. UFO-For- 
schung! H. W. Peiniger, PF 
2361, 5880 Lüdenscheid 



VZ 200 Softw. Info g. Freium- 
schlag. W. Fischer, Friedrich- 
str. 14, 6463 Freigericht 5 



„Load ZX81" lädt jedes 
ZX81-Prog. mit Variablen 
in jeden SPECTRUM. Die 

meisten Basic-Programme 
sind sofort lauffähig. Info 
anfordern oder sofort be- 
stellen: DM 39,-. Michael 
Naujoks, Rottmannstr. 40, 
6900 Heidelberg, Tel. 
62 21 / 4 68 85 



Tl 99/4 A, Software, 
Anwenderprogramme, 
Spiele und individuelle 
Programme. Info gegen 
Rückporto bei: JHC- 
Software, Chattenstr. 
28, 6331 Katzenfurt 



Kleinanzeigen 



Liebe Leser, 

wollen sie ein Kleinanzeige aufge- 
ben? Suchen Sie einen gebrauchten 
Home-Computer, Software oder 
Kontakte zu Computer-Clubs etc.? 

Dann nutzen Sie jetzt den Klein- 
anzeigenservice von „Compu- 
tronic". „Computronic" ist die 
Zeitschrift für Home-Computer- 
Besitzer. Sie erreichen durch uns 
eine Vielzahl von Lesern im In- und 
Ausland: 

Und so wird's gemacht: 

Kleinanzeigen-Coupon ausfüllen 
(alle Zeilen können ausgefüllt wer- 
den) und gegen 
Vorkasse einsenden an: 

Tronic- Verlag 

Postfach 41 

3444 Wehretal 1 

Also, schnell ausfüllen und ein- 
werfen in den nächsten Postkasten. 
Dann ist mit Sicherheit Ihre Klein- 
anzeige dabei. 




C-64- Synthesizer: ca. 40 K, 

echte Noten, Partiturediting, 
Notenausdruck, Direktein- 
spielung + Notenumsetzung, 
Supersound. Info von Autor 
W. Kracht, Espellohweg 38, 
2000 Hamburg 52 



Roulettesoftware f. Sharp PC 
121 1/12/4551 /PC '1500. Rou- 
lettesystemprogramme »Auf 
Dauer gew.« »AD Astra« 
»Number one« «Acclaim« 
»Plein Prive« »Accord« DM 
550,- Cass. B. Nowotny, Gise- 
lastr. 3, 8000 München 40 



An alle SF- und Fantasy- 
. Freunde! Jeweils 8 Mitspieler 

für Strategiespiele gesucht. 

Mit Gewinnchancen. Näheres 

gegen Freiumschlag von: H. 

Topf, A.-Bucherer-Straße 63, 

5300 Bonn 1 



ZX-SPECTRUM! Spie- 
lend BASIC lernen Ca. 
mit 10 Pr.+Listing+Er- 

klärung+Tips+Tricks für 
den ZX. 10,- DM bei 
A. Meuser, Goethestr. 
18, 5205 St. Augustin 
NEU -SUPER ZX Spiele - 



Spectrum Softw. z. B. M. Mi- 
ner 8,-; ZOOM 8,-; Liste 4- 
kostl. Programm anfordern, 
Karte genügt: H. Novak, Eger- 
länder PI. 19, 6053 Oberts- 
hausen 2 



TI-99/4A: ca. 90 Tl-Basic und 
ca. 80 Ex-Basic Programme 
zu verk. Info g. Rückum- 
schlag. B. Knedel, Tulpen- 
gasse 16, 3171 Weyhausen, 
Tel. 5362/711 87 



Achtung! 
Korrektur Heft 10: 

ZX-81 Panik-Labyrinth 

Geben Sie bitte in Zeile 1 neun beliebige Zeichen ein, z. B. 1 Rem xxxxxxxxx. 
Vor dem Starten und Abspeichern folgende Pokes eingeben: Poke 
16514,42, Poke 16515,14, Poke 16516,64, Poke 16517,126, Poke 16518,79, 
Poke 16519,6, Poke 16520,0, Poke 16521,201 



Computronic iVIdllclIlZdCJdl nur gegen Vorkasse 

Bitte veröffentlichen Sie ab nächstmöglicher Ausgabe unter der Rubrik: 
D Verkäufe G Kontakte D Geschäftsempfehlungen 

D Ankäufe □ Verschiedenes D Tausch 

folgenden Text: 



Bitte jeweils 28 Buchstaben pro Zeile! Bitte Absender nicht vergessen! 

Preis für Kleinanzeigen: Private Anzeige DM 4,50 je Zeile 

gewerbl. Anzeige DM 8,00 je Zeile 
Chiffregebühr . DM 10,00 je Anzeige 



Name/Vorname: 



Straße, Nr.: 



PLZ/Ort: 



Datum, Unterschrift 



privat D gewerbl. D 

(bitte ankreuzen) 
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Kassettenservke 



HEFT 
4 



VC-64 K = 8,— DM 

D = 15,— DM 
Mauern, Widerstand 

ZX- 

Spectrum K = 12,— DM 
Inventur 

TI 99 K = 8,50DM 
Drei-Kronen-Spiel 

Zahlenputzen 

VC-20 K= 11,50DM 
D = 18,— DM 
Hangman, Saurer Regen, 
Quadr. Gleichung 

Dragon32K = 8,— DM 

Blizzard 

Apple II K= 14,50DM 
D = 19,50DM 
Wilder Westen, 
Karambolage, 

Maskengenerator 

Atari K = 10,50DM 

Mastermind, 

Schlangenkrieg 



HEFT 
5 



TI 99 K = 14,50DM 
Karl der Käfer 

Alien-Landing 

VC-64 K = 15,50DM 
D = 23,50DM 
Space-Comets/Erdspalte/ 
Sprite-Data 

Apple II K = 9,50 DM 
D = 19,50DM 
Musik-Maker/Mission- 
Adler/Disk-Catalog 

Sharp MZ 

700 K = 8,50DM 

Kalender 

Sharp PC 1500 Lotto 

Dragon K = 10,— DM 
32 

Space-Flight, Geosoft 

ZX-81 K = 10,— DM 
Go-Ball, Grand-Prix 

ZX 

Spectrum K = 8,50DM 
Missile-Comment 

Atari K = 12,50DM 

Tank-Battle/Oil Panic 



HEFT 
6 



VC-64 K = 16,50DM 
D = 23,50DM 
Autostart/Bestellschein/ 
Roadpainter 



Dragon 
32/64 K = 

Wargames 



8,50DM 



Apple II K = 12,50DM 

D = 19,50DM 

Snake/Super Datei/Shape- 

tables 



VC-20 K = 8,50DM 
D = 15,00DM 
Bestellschein/Glücky 

ZX-81 K = 10,— DM 
Moon-Crash/ZX-Draw 

ZX- 

Spectrum K = 13,50DM 
Defender/Lui der Wurm/ 
Alternativer Zeichensatz 

TI-99 K = 14,50 DM 

Jack the Digger/Noah - 
2099 



HEFT 

7 



VC-64 K = 15,50 DM 
D = 19,50DM 
Hardcopy/Space-Fighter/ 
Data-Generator 



ZX-81 K = 10— DM 

Tonprogramm/Aldebaran 



Atari K = 12,50 DM 

Startup/Zeilen-Split/ 

Tomstone-City 

VC-20 K= 11— DM 

D = 15,50DM 

Multigraph/All-Rammer 

ZX- 

Spectrum K = 12,50 DM 

Matheprogramm/Bongo- 

Beecatcher 



Apple II K = 12,50DM 
D = 19,50DM 
Library/Fight 



Dragon 32K = 

Laser-Attack 



8,50DM 



TI-99 K = 14,— DM 

Lift Bär D= 19,50 DM 
ASC II'DEF Teil 1 



X 



Bestellkarte-Kassettenservice 



Computronic 

Alle im Heft abgedruckten Programme können als zusätzlicher Service über den Verlag bezogen werden. 
(Ausland nur gegen Vorkasse) 



Die Zustellung erfolgt: gegen Vorkasse D 
innerhalb von 1 Woche 



oder Inland per Nachnahme D 

+ Versandkosten 



Entnehmen Sie bitte aus unserer Preisliste die notwendigen Angaben für fhre Bestellung: 

Bitte liefern Sie mir: 

D Kassette für D Anzahl 



System 



aus Heft 



D Diskette für 

zum Preis von gesamt 



System 



aus Heft 



D Anzahl 
DM 



Name/Vorname: 



Straße, Nr.: 



PLZ/Ort: 



Datum, Unterschrift 



Computronic 



Kassettenservice I 



Jedes Programm in Computronic wird einer Endkontrolle in unserem Hause unterzogen und genauestens geprüft. 
Alle im Heft abgedruckten Programme sind nach der richtigen Eingabe der Listings auch funktionsfähig. Viele Leser 
verlieren jedoch schnell die Geduld am Programmieren, sollte etwas einmal nicht klappen. Die häufigste Ursache 
von Störungen im Programm, sind unterlaufene Fehler bei der Eingabe. Verzweifeln Sie nicht, sollten Sie einmal kei- 
ne Zeit zum Programmieren haben oder sollte etwas nicht gelingen. Alle Programme werden im Verlag gespeichert 
und können jederzeit mit beiliegender Bestellkarte bezogen werden. 

Tragen Sie bitte alle notwendigen Angaben in die Bestellkarte ein. 



Rückgabe-Garantie: 

Wir garantieren: 

• kostenlosen Umtausch von defekten bzw. 
transportgeschädigten Datenträgern! 

• die Zusendung der Umtauschware erfolgt 
noch am Posteingangstag! 

Bestellung per Telefon: 

Wenn es schnell gehen soll ... rufen Sie uns 
an. Wir nehmen Ihre Bestellung gern entge- 
gen. 

Tel.-Nr.: 56 51 - 4 06 93 oder 

56 51 -4 06 43 

Tronic -Verlag, Postfach 41, 3444 Wehretal 1 

nach 1 7 Uhr: 

Anrufbeantworter 56 51 - 4 06 93 



Bitte beachten Sie: 

Sie ersparen sich zusätzliche Kosten (bis 

zu DM 5,-), wenn Sie per Vorkasse (bar, 

Verrechnungsscheck) bestellen. 

Ausland: 

• Bestellung nur gegen Vorkasse! 



Disketten für TI-99 

laufen nur mit Speichererweiterung! 



HEFT 
8 



C-64 K = 16,50DM 

D = 23,50DM 
Monster Attack/Block- 
Painter/Epson-Drucker 

Atari K = 14,— DM 

D = 19,50DM 
Painter/Hardcopy 

Apple II K = 14,— DM 
D = 19,50DM 
Reversal 
Disk-Menue-Generator 

TI-99 K = 14,50 DM 
*D = 19,50DM 
Maya/ASC II DEF Teil 2 

ASC II DEF 

Teil 1+2 D = 19,50DM 



Laser 

2001 K = 

Andromeda 



8,50 DM 



ZX-81 K = 10,— DM 
Irrgarten 3 D 

ZX- 

Spectrum K = 14,50DM 

Solitaire/Superstat. 

Kleinstes gem. Vielfaches 

VC-20 K= 11,— DM 

D = 19,50DM 

Zyklo/Meteorit 

Dragon K = 13,— DM 
Hardcopy 



HEFT 
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Colour 

Genie K = 10— DM 

Fuchs und Hund 



C-64 



Projekt 
Datenbank 



K = 16,— DM 
D = 23,50DM 



Atari K = 14,— DM 
D = 19,50DM 
The Big Quest 
Fünf gewinnt 

Apple D = 19,50 DM 

Diamonds 

Hilfsp rogramm 

TI99 



Transfer 
Silverspar 



K = 14,50DM 
D = 19,50DM 



Laser 

2001 K = 

Crazv Cake 



12,— DM 



ZX-81 

Reversi 



K = 10,— DM 



ZX-Spec- 
trum K 

Jump about 



= 14,50DM 



VC-20 K = 14— DM 

D = 19,50DM 
Garten 
Schloß Gruselstein 

Dragon K = 10— DM 

Anwende rpr ogramm 

^ r 



1 HEFT ' 
10 


Ti-99 K = 
D = 

Mother-Duck 
Screen-Designer 


14,50 
19,50 


VC-64 K = 

D = 
Spiders 
The Basic 


16,50 
23,50 


Atari K = 

D = 
Splitt 


11 — 
18,50 


ZX- 

Spectrum K = 

Pac-Man 
Oil-Panic 


14,50 


VC-20 K = 

D = 
Fressmann 
Outlaw 


14,— 
19,50 


Apple D = 

Tic - Tac - Toe 
Jumper 


19,50 


ZX-81 K = 

Panik Labyrinth 


10 — 


Dragon 
32/64 K = 

Dragon paint 


14,— 



Laser 

2001 K = 

Cave-Man 



8,50 
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VC-64 K = 

D = 
High Noon 
Skeet 
Grafik-Designer 



TI-99 K = 

*D = 
Cave-Man 
Alkoholverbot 



Atari 



17,50 
23,50 



14,50 
19,50 



14,50 
19,50 



Ski 

Mutation 






ZX- 

Speclrum 

Frogger 


K = 


16,— 


ZX-81 

Expedition 


K = 


10,— 


VC-20 

Prost 
Buffalo Bill 


K = 
P = 


14 — 
19,50 



Apple K= 14,50 

D= 19,50 
Donovan 
Basic-Konverter 
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I Kassettenservice 




Leo Nean- 
dertal lebt in 
der Stein- 
zeit. Schwer 
hatten es die 
Menschen 
in der Stein- 
zeit, denn 
sie mußten 
sich ihr Es- 
sen bitter er- 
kämpfen. Leo will dem Saurier Rex die Eier 
stehlen und diese in den unterirdischen 
Höhlen lagern. Der Saurier Rex aber hat 
etwas gegen Leos Unterfangen und ver- 
sucht mit allen Mitteln, Leo Neandertal am 
Diebstahl zu hindern. Ein Spiel für den 
TI99. 



Jump about: 

Ein kleiner Floh 
und sein Freund ha- 
ben ein schweres 
Schicksal zu mei- 
stern. Sie sind beim 
Herumhüpfen un- 
bewußt in den Ein- 
flußbereich eines 
bösen Magiers ge- 
raten. Nun gilt es, 
den Weg in die 

Freiheit zu finden. Ein Spiel für den ZX-Spec- 
trum mit toller Graphik. 




Monster-Attak: 




Tomstone-City: 

Eine kleine Stadt 
im „Wilden We- 
sten" gewährt 
Dir Schutz vor 
Deinen Feinden. 
Solange Du sie 
nicht verläßt 
kann Dir nichts 
passieren. Au- 
ßerhalb der Stadt 
Wirst Du jedoch 

gejagt. Gewählt werden kann zwischen ver- 
schiedenen Schwierigkeitsgraden. Ein Spiel 
für Atari 600/800 XL. 




Für den Commodore 64. Fremde Wesen greifen 
die Erde an. Versuchen Sie die angreifenden 
Monster vor Erreichen der Erde zu zerstören. 
Das Spiel unterteilt sich in 6 Level, wobei bei 
jedem Level die Spielgeschwindigkeit sowie die 
erreichbare Punktzahl ansteigt. Das Spiel wird 
mit Joystick gespielt. 



Maya: 




Das Spiel läuft auf dem TI- 
99/4 A mit dem Extented Ba- 
sic Modul und wird mittels 
Joystick gesteuert. Der 
Rechner kann in diesem 
Spiel bis zu 378!! verschie- 
dene Bildschirmszenen dar- 
stellen. Das Spiel verfügt 
über eine hervorragende 
grafische Darstellung. Be- 
gleiten Sie also Coconut Joe 
auf die abenteuerliche Expe- 
dition in den Urwald. Viel- 
leicht haben Sie Glück und 
finden die Schätze der 
Mayas. 



In eigener Sache: 



Wir haben uns verändert ! 

Unter dieser Rubrik, liebe Leser, 
wollen wir Ihnen unser neues 
Konzept für das kommende Jahr 
1985 vorstellen. Nachdem wir 
nun schon seit April dieses Jah- 
res auf dem Zeitschriftenmarkt 
erfolgreich mitmischen, können 
wir eine erste Bilanz ziehen. Das 
Resultat wird - wie wir meinen - 
viele Leser mit Sicherheit erfreu- 
en. 

Fest steht: Wir bleiben unseren 
treuen Lesern und Hobby-Pro- 
grammierern erhalten, aber: in 
neuer Form! 



Unser Schwerpunkt wird weiter- 
hin bei Software-Listings der 
Spitzenklasse liegen. Berück- 
sichtigt werden dabei: Commodo- 
re 64, VC-20, TI-99, Atari, Apple II, 
ZX-Spectrum und der ZX-81. Zu- 
sätzlich erhält der Commodore 
64 in jeder unserer Ausgabe ei- 
nen umfangreichen Sonder- 
teil! 

Ferner ist Ihnen sicherlich nicht 
entgangen, daß die jetzige Aus- 
gabe von „Computronic" eine 
Doppelausgabe ist. Aus Gründen 
der zu kurzen Angebotszeit unse- 



rer Zeitschrift im Handel haben 
wir uns entschlossen, alle 
2 Monate auf dem Markt zu er- 
scheinen. Ihr Plus dabei: Wir 
bringen acht Seiten mehr, Aktu- 
elles, viele Listings, komplette 
Kurse und andere tolle Überra-. 
schungen zum Preis von nur DM 
6,50. 

Wir jedenfalls hoffen, mit unse- 
rem Konzept dem Markt gerecht 
zu werden, und wünschen uns, 
liebe Leser, für jeden immer et- 
was Interessantes dabeizuhaben. 
Ihre Redaktion. 
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CflSSETTEN 



Präzise Cassetten-Mechanik 
Hohe Speicherdichte 
Für alle Data-Recorder 



1 ^ 1 

I , ■" 






1 | 

H m 

■i 

I 



t 



■ 



^ — I 



DflTfl-DJSK DISKETTEN 

Extreme Lebensdauer durch 
zusätzliche Oxygenbeschichtung 

Zuverlässige Datensicherheit 
durch mehr als 70 chemische, 
magnetische und elektrische 
Qualitäts-Tests 
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Kassettenservice 



aus unserem Angebot Seite 84 und 85 



Spiders: 

Ziel des Spieles ist 
es, zwei Spinnen, 
die auf ihren Net- 
zen herumkrab- 
beln, zu beseitigen. 
Vernichten kann 
man die Tierchen 
allerdings nur mit 
Insektengift. Davon 
liegt noch genug im 
Keller, aber wo ist 
der Schlüssel? - Unser Topprogramm aus der Aus- 
gabe Oktober. Spiders gefällt durch eine gute Gra- 
fik und guten Sound. Gespielt wird mit Joystick an 
Port 2. Für Commodore 64. 




Frogger: 



Ein Spiel für den 
ZX-Spectrum 48K. 

Die beliebte Spiel- 
version jetzt auch 
für den ZX-Spec- 
trum. Ein Frosch 
hockt am Straßen- 
rand einer viel be- 
fahrenen Straße 
und versucht ver- 
zweifelt, sie zu 

überqueren. Ist ihm das gelungen, wartet eine zwei- 
te schwere Aufgabe auf ihn. Ein Fluß, verseucht mit 
Krokodilen, muß überquert werden. Das Spiel ver- 
fügt über einen guten Sound. 




Fressmann: 



Mother Duck: 

Ähnlich der Spielversion 
„Frogger". Eine Entenmutter 
muß einen Fluß überqueren, 
um Futter für ihre Jungen zu 
bekommen. Allerlei Untier 
hält sich 
jedoch 
im Was- 
ser auf 





und macht jede Flußüberquerung zu ei- 
ner gefahrvollen Angelegenheit. Für TI 
99. Benötigt werden Joystick und das 
TI.-Ext.-Basic-Modul. 



Oil-Panic: 




Skeet: (Tontaubenschießen) 



Fressmann ist eine Pacman- Version. 
Das Programm, welches ohne Erweite- 
rung lauffähig ist, steht der Originalver- 
sion in nichts nach. Fressmann läuft auf 



dem VC 20 

spielt. 



und wird mit Joystick ge- 



Projekt: 




Als Top- 
programm 
auserwählt 
von der 
Redaktion. 
Sie sollen 
eine ge- 
fährliche 
Mission 
ausführen. 
Um für die 
nächste Zeit genügend Uran zur Verfü- 
gung zu haben, sollen Sie eine Reise 
zum Mond unternehmen und nach dem 
edlen Metall suchen. Ihre Reise ist in 
fünf Phasen aufgegliedert, die nachein- 
ander bewältigt werden müssen. Ein 
schönes Spiel für den Commodore 64. 




Für Commo- 
dore 64. Dem 

realistischen 
Tontauben- 
schießen 
nachempfun- 
den. Von ei- 
nem Katapult 
geschleuderte 
Tontauben 
müssen reaktionsschnell getroffen werden. 
In diesem Spiel kann jeder seine eigene 
Meisterschaft austragen. Eine Supergrafik 
zeichnet besonders aus. 



Sie müssen versuchen, mög- 
lichst viele Tropfen aufzu- 
fangen, die aus 
einer defekten 
Ölleitung her- 
austreten. Aber 
aufgepaßt, denn 
der Eimer, der 
zum Auffangen 
da ist, ist mit nur 
vier Tropfen ge- 
füllt. Für ZX- 
Spectrum 48K. 



High Noon: 



Ein tolles Spiel für den Commodore 
64. High Noon besitzt eine schöne 
Grafik und eine hohe Spielgeschwin- 
digkeit. Gewählt werden kann zwi- 
schen 255!! verschiedenen Spielstu- 
fen. - Auf einer vielbefahrenen Post- 
kutschenstraße stehen sich zwei 
Cowboys gegenüber und duellieren 
sich. Ein Spiel für alle Western- 
Freunde. 






"■■M - - 



Computronic erscheint jetzt alle 2 Monate im Tronic-Verlag. Der Bezugspreis beträgt im Inland DM 6,50. 
Im Preis ist die gesetzliche Mehrwertsteuer enthalten. 

Tronic-Verlag GmbH • Postfach 41 • 3444 Wehretal 1 • Telefon 56 51 - 4 06 43 / 4 06 93 



